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Das Beiriebssystem 
des ZX-Specirum 


1. Einleitung: Die »Vorgeschichte«. 


Der Sinclair ZX80 und der ZX81 sind mit hinlänglicher Si- 
cherheit jedem Leser bekannt. Das seinerzeit Neue und 
auch weiterhin Verblüffende an diesen »Systemen« war 
und bleibt eine schon fast genial zu nennende Reduzie- 
rung der benöfigten Bauteile auf das absolute Minimum. 
Hierzu wurden alle Kniffe eingesetzt, die der Spezialist erst 
mit Mühe durchschaut. Diese Kniffe gehen weit über das 
»normale« Ausnutzen der käuflichen Komponenten, ins- 
besondere des Prozessors Z80, hinaus. Jede Eigenschaft, 
jedes vorhandene Signal, auch in ungewöhnlicher und 
unvorhergesehener Verwendung, wurde eingeseizt. Es sei 
in diesem Zusammenhang nur an die Bilderzeugung erin- 
nert, die aus einer erstaunlichen Zweckenftfremdung des 
Interrupts gewonnen wird. 


Die Prinzipien beim Entwurf des ZX80 waren damit: 
— konsequentes Minimieren des Bauteileaufwandes 
— Ausgleich durch erhöhten Programmieraufwand 
— dadurch höhere Entwicklungskosten 
— aber niedrige Stückkosten in der Produktion, 


also ein klarer Weg zum Massenprodukt. Als das Konzept 
sich bewährte, folgte auf den diskret (mit käuflichen Bau- 
teilen) aufgebauten ZX80 bald der ZX81 mit einem kun- 
denspezifischen Gate-Array, in dem die früheren TIL- 
Schaltkreise zusammengefaßt wurden. Für das gesamte 
Gerät waren damit alle Funktionen in einem Baustein er- 
faßt, welche über Prozessor, RAM und ROM hinausgingen. 
Das Betriebssystem der Rechner ZX80 und ZX81 zeigte 
starke Spuren dieser Arbeit. Hier war offensichtlich und be- 
wundernswert gekämpft worden, um in der Hardware 
auch das Nötigste womöglich zu sparen. Im Falle des Ar- 
beitsspeichers und seiner Verwaltung schoß man aller- 
dings über das Ziel hinaus; allerdings waren zur Planungs- 
phase RAM-Bausteine nicht annähernd so billig wie der- 
zeit. In dem überknappen 1 Kilobyte drängeln sich die Sy- 
stemvariablen, das Bildschirm-RAM, ein BASIC-Programm 
und dessen Variable. Der Anteil des Bildschirmspeichers 
ist nur so groß, wie an Zeichen innerhalb der Zeilen wirk- 
lich vorhanden ist. Bei leerem Bildschirm schrumpft er auf 
ein Byte pro Zeile und wird durch eine Platzmach-Routine 
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gedehnt, wann immer ein Zeichen in eine Position auf 
dem Schirm zu bringen ist, von der aus nach rechts gese- 
hen noch kein Zeichen steht. Bei all diesen Operationen 
verschieben sich das BASIC-Programm und Variable im 
Speicher; eine mühselige Tat. Da der Prozessor weiterhin 
die meiste Zeit mit dem Aufbereiten des Bildes beschäftigt 
ist, wird die Rechengeschwindigkeit drastisch verringert, 
Das Anfügen eines 16 Kilobyte-Moduls verändert dieses 
Vorgehen natürlich nicht, schneller wird der ZX80/81 da- 
mit also in keinem Fall, auch wenn jetzt für einen stabilen 
Speicher Platz wäre. 


Der Prozessor Z80 kann, wie fast alle 8-Bit-Prozessoren, ei- 
nen Gesamtspeicher von 64 KByte mit seinen 16 Adreßlei- 
tungen ansprechen. Die höchstwertigste dieser Leitun- 
gen, AA5, dient im ZX81 jedoch zum Umschalten zwi- 
schen den Betriebsarten »Denken« und »Bild darstellen«. 
Sie ist somit zur Speicheradressierung nicht verwendbar; 
der adressierbare Platz reduziert sich auf 32 KByte. Hier- 
von verbleiben für das RAM 16 KByte. Mehr als diese 16 
KByte an Arbeitsspeicher ist also zunächst, ohne besonde- 
re Maßnahmen, gar nicht einpbaubar. Der ZX-Spectrum 
besitzt diese Einschränkung nicht mehr. 


Der Autor spricht sich nicht frei davon, bei der Marktein- 
führung von ZX80 und ZX 81 mit ein wenig Überheblichkeit 
gelächelt zu haben. Intensive Beschäftigung, insbesonde- 
re mit der Hardware, haben diese Einstellung aufgeho- 
ben. Selbst bei der Einschätzung, daß es sich hier jeden- 
falls mehr um Spielzeuge denn um industriell verwertbare 
Geräte handelt, gebührt der Entwicklungsarbeit Anerken- 
nung. 


14.1 Der 2X-Specirum 


Der Sinclair ZX-Spectrum soll hier in seiner Nachfolge der 
bisherigen ZX80 und ZX81 betrachtet werden, aber auch 
in Abgrenzung zu anderen Geräten der gleichen Preis- 
klasse. Es ist das Ziel dieser Einführung, dem Leser einen 
Überblick über die spezifischen Merkmale zu verschaffen 
und deren Wertung zu ermöglichen. Diese erscheint ne- 
ben dem Auflisten und Erläutern des Betriebssystems vor- 
rangig. 

Der ZX-Spectrum basiert weitgehend auf seinem Vorgän- 
ger, dem ZX81. Weite Teile der Programmierung lassen 
dies erkennen. Seine Hardware ist aufwendiger, schließ- 
lich vermittelt er farbige Darstellung, und die Reduzierung 
der Hardware erscheint nicht mehr so kraß wie bei jenem; 
vielleicht hat man sich auch daran gewöhnt. Ermöglicht 
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durch gefallene Bauteilpreise sind bereits im Grundmo- 
dell 16 Kilopyte an Arbeitsspeicher vorhanden, die auf 48 
KByte erweiterbar sind. Zusammen mit dem Betriebssy- 
stem von 16 KByte nutzt der Spectrum also den möglichen 
Speicherbereich vollständig aus. Da der Prozessor Z80 
über spezielle Befehle und eine Steuerleitung für /O- 
Operationen verfügt, belasten die weiterhin angeschlos- 
senen Systemeinheiten wie Tastatur usw. diesen Speicher- 
platz nicht, denn mit den IN- und OUT-Befehlen sind die 
gesamten 64 KByte als I/O-Adressen oder Ports nutzbar. 
Auch hiervon wird noch ausführlich die Rede sein. 


Der grundsätzlich vorhandene Speicherbereich von 16 
KByte erlaubt eine feste Anlage des Bildschirmspeichers, 
und wieder einmal waren die Konstrukteure gründlich: Im 
Spectrum gibt es keinen zeichenorientierten Bildschirm- 
speicher, dessen Inhalt erst durch das Zeichensatz-ROM 
eine grafische Form findet; hierin unterscheidet er sich von 
den meisten anderen Geräten. Der Bildschirm ist in direk- 
ten Punkten organisiert; jedem Punkt entspricht ein Bit im 
Speicher. Das bedeutet, daß bereits beim Schreiben ei- 
nes Zeichens auf den Schirm die punktmäßige Form des 
gewünschten Zeichens dem Zeichensatz entnommen 
wird und als »Bild« in den Speicher gelangt. Damit sind 
Zeichendarstellung und Einzelpunktgrafik identisch. Bei ei- 
ner Darstellung von 22 Bildschirmzeilen mit je 32 Zeichen 
ergibt sich die Punktauflösung, da jedes Zeichen aus 8x8 
Punkten besteht, mit 176 Punkten in vertikaler und 256 
Punkten in horizontaler Richtung. Der Aufbau des Bildschir- 
mes erlaubt auch die Funktion OVER, eine Überlagerung 
von Zeichen, ohne das untere, früher geschriebene, zu lö- 
schen; weiterhin die benutzerdefinierten Grafiksymbole, 
ebenfalls Unterscheidungsmerkmale zu anderen Gerä- 
ten. Auf die Spitze getrieben scheint die Frage der 
Farb-»Attripute« zu einem Zeichenfeld, welche als perma- 
nente, transparente, zeitweise und transparente zeitweise 
gewählt werden können! 


2. Das Beiriebssystem 


Unter dem Beiriebssystem eines Rechners versteht man 
nicht etwa die Sprache, in der man sich mit ihm verstän- 
digt, sondern lediglich den Teil der Software, welcher die 
inneren Einheiten des Systems anbindet und verwaltet. 
Hierunter sind hauptsächlich die Eingabeeinheiten, also 
Tastatur, externes Speichermedium und andere, sowie 
die Ausgabeeinheiten, also Bildschirm, Drucker und wie- 
derum externe Speichermedien, zu fassen. Bei den mei- 
sten Rechnern ist dieses Betriebssystem im Speicher von 
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anderen Teilen weitgehend getrennt, auch bei BASIC- 
Rechnern. Es sei daran erinnert, daß die meisten Geräte 
mit Microsoft-BASIC arbeiten, welches dann als kompak- 
ter Block neben dem Betriebssystem im Speicher steht. 
Beim ZX-Specirum stellt man fest, daß die Entwickler das 
Microsoft-BASIC zumindest recht gut kannten; allerdings 
stehen der Sprach-Interpreter und das Betriebssystem 
nicht voneinander geftrennt. Der Aufbau ist eher chronolo- 
gisch der Entwicklung aus dem ZX81. 


2.1 Die Tastatur (ab $028E) 


Die Einbindung der Tastatur in die Gesamtschaltung ist ein 
Meisterkniff an minimalem Aufwand, welcher direkt aus 
dem Z2X81 entnommen wurde und der sich um den Befehl 
0296 ED 78 NXTREIIN A, (C) ; 

konzentriert. Dieser Maschinenbefehl gibt die Register B 
und C des Z80 als Adresse aus, welche gleichbedeutend 
mit Zeile und Spalte der Tastaturmatrix sind, welche je- 
weils angesprochen ist. Ein Tastendruck wird dann ent- 
sprechend ausgewertet. 


Wenn diese Routine selbst auch fast völlig dem ZX81 ent- 
stammt, so ist bei der internen Codierung doch ein we- 
sentlicher Unterschied sichtbar: Der Spectrum arbeitet mit 
der genormten ASCII-Zeichentabelle, auch bezüglich der 
Groß- und Kleinbuchstaben. Dies ist leider nicht selbstver- 
ständlich, denn der ZX81 kannte keinerlei Übereinstim- 
mung mit bekannten Codierungen. Das absolut Originäre 
an Sinclair-Rechnern ist die Reaktion auf Tasteneingaben. 
Ein kompliziertes System an logischen Abfragen gibt kei- 
nesfalls immer einen Buchstaben pro Tastendruck weiter; 
da alle BASIC-Funktionen im Ein-Tasten-Verfahren einge- 
geben werden. Abhängig von der Syntaxprüfung und der 
beiden verschiedenen (!) Shift-Tasten erscheint bei einem 
Tastendruck eine von bis zu sechs möglichen Funktionen. 
Diese Sechsfachbelegung der Tasten ist zumindest in der 
Anfangsphase der Beschäftigung mit dem Spectrum au- 
Berordentlich lästig und nur bedingt faszinierend. 


Im Bereich von $0095 bis $D204 stehen die Namen der 
BASIC-Befehle. Wie in den bekannten Microsoft-BASICs ist 
das letzte Zeichen jedes Namens mit $80 versehen, um 
mit dieser Hilfe das Wortende zu erkennen. Im Anschluß 
an diese Tabelle findet sich die Zuordnung der Tastatur- 
matrix zu den ASCIl-Zahlenwerten. Durch deren Auswer- 
tung bei der Syntaxprüfung wird dann ein Zeichen oder 
auch ein BASIC-Befehl erkannt. Die Tokens (1-Byte-Kürzel) 
der einzelnen Funkionen wurden in Gruppen im Bereich 
von $022C bis $028D angelegt. 
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2.2 Der Recorderanschluß 


Die umfangreichen Routinen der Recorderbedienung ste- 
hen im Bereich von $D4C2 bis $D9F3. Vom ZX81 ist noch 
bekannt, daß der Anschluß des Videosignals und des 
Recorder-Ausganges phsikalisch identisch waren. In ähn- 
licher Weise sind beim ZX-Spectrum der Recorderan- 
schluß und die Farbausgabe des Bildschirmrandes ver- 
knüpft worden. So sind die Zustände beim Arbeiten mit 
dem Recorder leichter ersichtlich; auch können techni- 
sche Fehler wie falscher Pegel eventuell erkannt werden. 


Die Recorder-Routinen haben gegenüber dem 2X 81 weit- 
gehende Verbesserungen erhalten, was den Vorspann 
(Header) betrifft und die Sicherheit des Arbeitens mit dem 
Recorder, beim ZX81 häufig ein Zufallsprodukt, enorm er- 
höht. Der stabile Bildschirm des Spectrum gestattet das 
Anzeigen der auf dem Band gefundenen Header (Pro- 
grammnamen). Neu ist die Routine MERGE, das Anfügen 
von Programmen und Variablen. 


2.3 Der Tongenerator 


Im Speicherbereich von $03B5 bis SDAA9Y stehen einige 
Routinen, welche den eingebauten Lautsprecher befrei- 
ben. Der Anschluß ist sehr einfach gehalten, der Lautspre- 
cher ist an dem Ausgangs-Port $FE, Bit 4, angeschlossen. 
Wird per Programm dort eine »Null«e ausgegeben, so ist 
der Stromfluß eingeschaltet, eine »Eins« schaltet den Strom 
wieder aus. Der ZX-Spectrum beinhaltet also keinen 
»Sound-Controller« wie andere Geräte; ein Ton muß vom 
Prozessor selbst durch Ein- und Ausschaltknackse des Laut- 
sprechers im entsprechenden Rhytmus erzeugt werden. 
Um eine annähernde Reinheit eines solchermaßen ge- 
wonnenen Tones zu erzielen, sind die Zeiten des Ein- und 
Ausschaltens genau stabil einzuhalten. Es ist daher nicht 
zulässig, die Tonerzeugung durch einen Programminter- 
rupt zu unterbrechen. Während eines Tones sind daher In- 
terrupts gesperrt; Tastatur und Uhrzeit arbeiten kurzzeitig 
nicht. Die Werte der Periodendauer gewinnt der Specirum 
mittels seiner Rechenroutinen, indem die gewünschte Zeift- 
dauer und die Frequenz in Periodendauer bzw. Zählim- 
pulse und Anzahl von Perioden umgerechnet werden. 


2.4 Der Bildschirm 


Wie bereits erwähnt, besitzt der ZX-Spectrum einen festen 
Bildschirmspeicher, welcher pro Bildpunkt ein Bit reser- 
viert. Der Bildschirmspeicher beginnt bei $4000 (16384) 


11 


und geht bis $580D (22528), hat also eine Länge von 
6144 Bytes. Dies entspricht 192 Zeilen zu je 256 Punkten, 
da in ein Byte 8 Punkte passen. Die 192 Zeilen entsprü- 
chen 24 Textzeilen. Der Spectrum unterscheidet allerdings 
in interessanter Weise zwischen »oberem« und »unterem« 
Bildschirmteil. Dem Benutzer sind innerhalb eines BASIC- 
Programmes die 22 oberen Zeilen zugänglich, also auch 
176 vertikale Punktpositionen. Der untere Teil mit 2 Textzei- 
len dient den Eingaben. Dieser untere Teil kann allerdings 
dynamisch vergrößert werden, wenn entsprechend mehr 
eingetippt wird. Damit sind hier BASIC-Zeilen nicht auf die 
Breite einer Zeile begrenzt. 


Der Leser mag sich an dieser Stelle die unterschiedlichen 
Verfahren vor Augen halten, welche zum Editieren von 
Programmzeilen angeboten werden. Ungeschlagen dürf- 
ten die Commocdore-Rechner aller Typen mit ihrem völlig 
wahlfreien Bildschirm-Editieren sein, ebenfalls üÜbernom- 
men beispielsweise in die Rechner von EPSON. An jeder 
beliebigen Stelle des Bildschirms kann eine Zeile modifi- 
ziert und durch ein Return neu eingegeben werden. Be- 
sonders beim Vervielfältigen von Zeilen ist dies hilfreich. Ei- 
ne Zumutung dagegen APPLE-Computer, wo eine Zeile 
bei Änderungen neu getippt werden muß. Der Spectrum 
ist hier mittelmäßig komfortabel, da er wie mancher an- 
dere eine EDIT-Funktion beeinhaltet: Eine ausgesuchte Zei- 
le wird zum Editieren bereitgestellt, neue Eingaben über- 
schrieben jedoch nicht etwa ältere, welche erst mit DELETE 
zu entfernen sind. Diese Eigenschaft wurde dem ZX81 ent- 
nommen. 


Der Bildschirmspeicher enthält, es sei nochmals gesagt, 
nur Punkte. Es lassen sich hierdurch Zeichen grafisch ad- 
dieren, ebenso ist das Zeichnen von Linien durch vorhan- 
dene Zeichen kein Problem. Grafische Figuren und Text 
sind ganz einfach identisch; eine Tatsache, die bei der 
Frage des Ausdruckes noch zu diskutieren sein wird. 


Auf den Speicherbereich der Punkte folgen die »Attribute« 
mit 768 Bytes. Es gibt also pro Zeichenfeld (8x8 Punkte) ei- 
ne Farbkennzeichnung, insgesamt 24 mal 32 Felder. Die 
Aussage, der Spectrum besitze hochauflösende Farbgra- 
fik, wäre wie bei fast allen anderen Geräten auch irrefüh- 
rend. Tatsächlich lassen sich Farbinformationen nur für ein 
Zeichenfeld, nicht jedoch für jeden einzelnen Punkt, festle- 
gen. Eine wirkliche Darstellung von beispielsweise 8 Far- 
ben, die an jedem Punkt des Schirms willkürlich wählbar 
wären, benötigte 3 Bit pro Punkt und im Bildschirmfeld des 
Spectrum somit 18432 Bytes (18 Kilobytes). Man überlege 
allerdings, daß auch der jetzige Weg schon 6 3/4 KBytes 
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für Punkt- und Farbinformationen verschlingt! Es sei noch- 
mals gesagt, daß auch Geräte wie Commodore VC20 
und C64 keine wirkliche Einzelpunkt-Farbgrafik im stren- 
gen Sinn besitzen. 


Der ZX81 müht sich mit sehr ausgeklügelter Software um 
den Aufbau des Bildes, indem der Interrupt stets eine Bild- 
zeile erzeugt. Der NMI schaltet dabei das stabile Bild ein 
und aus. Im Spectrum ist die Bilderzeugung eine Frage 
der Hardware; eine enorm höhere Rechengeschwindig- 
keit ist die Folge. Von der Bilderzeugung selbst ist der Z80 
nicht belastet, lediglich von der Verwaltung des Bild- 
schirminhaltes, was selbstverständlich ist. 


2.5 Der Druckerpuffer 


Eine weitere Speicherseite (256 Bytes oder 1/4 KByte), fest- 
stehend bei $5bMD (23296), dient der Aufsummierung 
von Informationen für den Drucker. Hiermit sind nun schon 
die ersten 7 KByte des Speichers belegt. Der ZX84 mit sei- 
nem bescheidenen einen Kilobyt reservierte dem Drucker 
32 kostbare Speicherplätze, welche den selben Zweck er- 
füllten. Im Spectrum ist jedoch auch der Druckerspeicher 
in Punkten orientiert; auch hier sind Text und Grafik misch- 
bar. Die Farbinformationen sind für den Drucker natürlich 
unnötig. Weitere Angaben zur Frage des Druckers finden 
sich im Abschnitt Erweiterungen und I/O-Probleme. 


2.6 Das Floppy-Beiriebssystem 


Hierzu ist eine klare Aussage angebracht — es gibt keines. 
Die auf der Tastatur zwar vorhandenen Befehle zur An- 
sprache eines solchen Speichermediums laufen im 
Spectrum-ROM schlicht auf Fehlermeldungen. Erweiterun- 
gen dieser Art können daher niemals einfach angesteckt 
werden, sondern verlangen ein externes ROM oder den 
Wechsel des eingebauten. Mehr hierzu im Abschnitt Er- 
weiterungen. 


Damit sind die Einzelpunkte des Betriebssystems übergrei- 
fend erläutert; der Leser kann den Spectrum eher mit an- 
deren Systemen vergleichen. 


3. Der BASIC-Interpreter 


Der BASIC-Interpreter leistet die Aufgaben der Zeileninter- 
pretation, der Befehlsausführung, der Berechnung mathe- 
matischer Ausdrücke, wozu er die arithmetischen Routi- 
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nen selbst und den Gleitkommarechner enthält, welcher 
unter anderem die Polynomberechnung der trigonomelri- 
schen Funktionen usw. ausführt. Der Spectrum enthält be- 
sonders bei letzteren mehr Funktionen, wie alle inversen, 
welche sich in anderen Rechnern nur durch Aquivalenz- 
gleichungen ermitteln lassen. Der Befehlsvorrat wurde ge- 
genüber dem ZX81 enorm erweitert; man erinnere sich 
daran, daß im Handbuch des ZX81 steht, »Befehle wie 
DATA und READ gäbe es zwar, der ZX81 käme aber ohne 
sie aus«; mußte er wohl oder übel. Der Spectrum enthält 
diese und weitere Befehle. Enorme Schwierigkeiten berei- 
ten weiterhin die logischen Befehle wie AND und OR, wel- 
che grundsätzlich anders als von allen Interpretern be- 
kannt reagieren und keineswegs für logische Prüfungen 
innerhalb eines Bytes oder innerhalb dezimaler Zahlen bis 
255 tauglich sind. Das Behandeln von Bits innerhalb eines 
Bytes scheidet hier aus, solches müßte durch mühseliges 
Teilen und Prüfen geschehen. 


Dankbar registriert die Befehle PLOT, DRAW und CIRCLE, 
wer schon einmal auf einem VC2O oder C64 mit der »Ein- 
zelpunktgrafik« gearbeitet hat, für die dort kein ähnlicher 
Komfort geboten wird. Beim Befehl CIRCLE sei als Kuriosität 
angemerkt, daß dieser aus Geschwindigkeitsgründen 
mäßig feine Geradenstücke zur Bildung von Kreissegmen- 
ten heranzieht. 


Ein kritischer Gedanke gebührt der bis zu sechsfachen Be- 
legungen von Tasten. Man überlege sich, daß der Grund 
darin liegt, unbedingt eine »Ein-Tasten-Erzeugung« aller 
BASIC-Befehle zu erreichen. Durch die verschiedenen 
Shift-Modi, welche vor dieser »einen« Taste zu bewältigen 
sind, erhöht sich die Anzahl der zu drückenden Tasten 
häufig über die Anzahl der Buchstaben hinaus, welche ei- 
gentlich den BASIC-Befehl ausgemacht hätten. Kurioses 
Beispiel sind die roten Tokens unter den Buchstabenta- 
sten, im Listing ab $D246: Für die eckigen und geschweif- 
ten Klammern, mithin für ein einziges Zeichen, muß erst 
Symbol Shift mit Caps Shift gedrückt werden, um in den 
»E«-Cursor-Mode zu gelangen, dann schließlich Symbol 
Shift zusammen mit dem unglücklichen Zeichen, welches 
man eigentlich haben möchte ... 


(Offensichtlich sind manche Konstrukteure bereits derart 
geshiftet, durchcontroliert und reverst, daß das Erstaunen 
über den TI59 mit seiner »2 ND«-Taste in Vergessenheit ge- 
raten ist. Auch eine Art Lernprozeß.) 


Im restlichen Bereich des Speicherplatzes von $386E bis 
S3CFF ist das ROM leer und enthält als Inhalt $FF. 
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4. Der Zeichensatz 


In den letzten drei Speicherseiten von $3D0® bis S3FFF ste- 
hen die darstellbaren Text- und Grafikzeichen. Da die Zei- 
chen in der geläufigen 8x8-Matrix wiedergegeben wer- 
den, sind pro Zeichen acht Bytes notwendig. Insgesamt 
kennt der Spectrum also 96 Zeichen. Die groben Grafik- 
symbole in Viertelzeichentechnik berechnet er, diese fin- 
den sich daher nicht im Zeichensatz. Um den Zeichensatz 
auch in seinen Details klarzustellen, erfolgt hier ein vergrö- 
Berter Abdruck. Jedem Punkt eines Zeichens entsprechen 
dabei vier Drucknadeln; die Reihenfolge der Zeichen ent- 
spricht dem ROM-Inhalt. Zu der Form der Zeichen ist be- 
merkenswert, daß diese an allen vier Kanten eine Punkf- 
position freilassen; dies ist ungewöhnlich. Da die Positio- 
nen der Zeichen auf dem Bildschirm keinen Abstand be- 
sitzen, ist es notwendig, die Zeichen links oder rechts so- 
wie oben und unten nicht ganz an den Rand der Matrix 
gehen zu lassen, da diese sonst auf dem Bildschirm anein- 
ander geraten würden. Die Maßnahmen, an allen vier 
Seiten Luft zu lassen, reduziert allerdings die Matrix der Zei- 
chen von 8x8 auf 6x6. Hiermit ist kein besonders schöner 
Zeichensatz mehr machbar, wie der nachfolgende Origi- 
nalabdruck zeigt. 


4.1 Erweiterung, I/O-Probleme 


Technische Fragen externer Anschlüsse sind Stoff eines 
Hardware-Handbuches; an dieser Stelle sollen daher die 
softwareseitigen Fragen beantwortet werden. 


Die Floppy-Disk-Befehle CAT, ERASE, FORMAT und MOVE 
laufen an der Speicherstelle $1793 schlicht auf die lapi- 
dare Meldung: »Invalid stream«, Hierfür ist im Spectrum 
keine Steuersoftware vorhanden. Der Anschluß einer 
Floppy-Disk oder des geplanten Microkassettenlaufwer- 
kes (2X Microdrive) bedingt einen ROM-Wechsel. 


Für die Ansprache von Input- und Outputerweiterungen 
kennt der Spectrum die Befehle IN und OUT, deren Bedeu- 
tung schlicht dem Z80-Code entstammt. Eine Ausgabe er- 
folgt bei $1E7D mit »OUT (C),A«, eine Eingabe bei $34A8 
mit »IN A,(C)«. Letzter Befehl ist Teil der Rechenroutinen. 
Zum Verständnis dieser Befehle sei das Handbuch des 
Rechners und des Z80 empfohlen. Unter Berücksichtigung 
derjenigen Ports, welche der ZX-Spectrum für eigene 
Zwecke belegt und an denen die Systemeinheiten wie Ta- 
statur, Lautsprecher, Recorder und Drucker angeschlos- 
sen sind, kann der Anwender eigene externe Schaltun- 
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gen direkt aus BASIC-Programmen mit diesen Befehlen 
betreiben. Vor der unvollständigen Dekodierung der in- 
ternen Systemeinheiten sei allerdings gewarnt, da in der 
Regel nur jeweils ein Bit des Adreßbusses während einer 
/O-Operation Null sein muß, um das gewünschte Gerät 
anzusprechen. So steht beispielsweise geschrieben, der 
Drucker werde mit Port 251 angesprochen, das entsprä- 
che einer Null an A2. Diese Null alleine spricht tatsächlich 
den Drucker an; alles andere ist derzeit aber egal, so daß 
ein (unzulässiges) OUT nach Port Null so etwa alle Syste- 
meinheiten aktivierte... 


5. Entstehung dieses Buches 


Am Beginn stand die Aufgabe, für den Spectrum einen 
optimalen Drucker bereitstellen. Wie dem Leser geläufig 
ist, drucken die Sinclair-Drucker auf aluminisiertem Papier 
und sind beispielsweise für Korrenspondenz keinesfalls ge- 
eignet. Dieser Drucker sollte nicht nur möglichst viele 
Schriftarten beherrschen, sondern selbstverständlich 
auch die Grafik des Spectrums direkt und sauber wieder- 
geben. Da der Druckerpuffer im Spectrum nur Punkte 
beinhaltet, nicht jedoch Zeicheninformationen, wurden 
Eingriffe in das Betriebssystem nötig, um allen Komfort bie- 
ten zu können. 


Die Vorgehensweise war abenteuerlich: Ein Disassembler 
für Z80-Maschinenprogramme stand lediglich lauffähig 
auf dem ZX81 zur Verfügung. Dieser erhielt daraufhin eine 
ROM-Erweiterung, welche das Spectrum-ROM aufnahm. 
Der nächste Schritt war eine Rechnerkopplung zwischen 
dem 2X 81 und dem CBM 3032, wobei der ZX81 veranlaßt 
wurde, das Spectrum-ROM zu disassemblieren und dem 
CBM 3032 jede Zeile zu übertragen, welche dieser auf Dis- 
kette ablegte. Anschließend wurde das gesamte Listing 
mittels eines Z80-Assemblers (eigens geschrieben) auf ei- 
nem CBM 8032 bearbeitet, kommentiert, jeweils wieder 
rückassembliert und mit dem Original-ROM verglichen, 
da sich immerhin Fehler einschleichen konnten. Insbeson- 
dere durch letzteren Vorgang ist sichergestellt, daß der In- 
halt des bearbeiteten Listings frei von Fehlern ist, denn die 
Übereinstimmung mit dem tatsächlichen Spectrum-ROM 
ist jederzeit prüfbar. 


Jedenfalls ergab sich im Verlaufe dieser Arbeit die Eni- 
wicklung einer Anschlußbaugruppe für Drucker, welche 
ohne zusätzliche Software mit den direkten Befehlen 
LPRINT, LLIST und COPY arbeitet und sogar ein hervorra- 
gendes Kopieren des Bildschirms in Einzelnadelgrafik er- 
laubt. 
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DAS KOMPLETTE 
 ASSEMBLER-LISTING 
DES SINCLAIR 
SPECTRUM 
BETRIEBSSYSTEMS. 

















ADRESS Cope | aueuızeite 


ZX - SPECTRUM - HAUPTFILE 


0000 
0000 
0000 
0000 
0000 
4000 
4000 
4000 
3800 
3800 
3BOO 
oBOO 
sCc90 
5600 
3c00 
3600 
„c00 
»c0B 
9609 
SCcoA 
ScOoB 
scoD 
Sc0E 
sc1d 
3635 
3658 
3039 
scaA 
3c3B 
3c3B 
Scst 
scstc 
sc3D 
DESF 
5c41 
3642 
5644 
5644 
3645 
3647 
5648 
5649 
5C4B 
5c4D 
SC4F 
Icar 
Sun 
5053 
css 
3697 
9659 
3699 
5ScS5B 
3cSB 
sc5D 


‚LIB SPECOOOO-S 


ı SINCLAIR ZX SPECTRUM TEIL 0000 


RAMBEG 
BILD 
ATTRSP 


PTRBUF 


*= $4000 


=* 


*=++5144 


*=%*+768 


*=*+256 


ANFANG DES RAMBEREICHS 


BILDSCHIRMSPEICHER 


ATTRIBUTSPEICHER 


PUFFERBEREICH FÜR DRUCKER- 
AUSGABE 


ı START DER SYSTEMVARIABLEN UND PDINTER 


KSTATE 
LASTK 
REPDEL 
REPPER 
DEFADD 
KDATA 
TVDATA 
STRMS 
CHARS 
RASP 
PIP 
ERRNR 


FLAGS 


TVFLAG 
ERRSP 
LISTSP 
MODE 
NEWPPEC 


NSPPC 
PPC 
SUBPPC 
BORDER 
EPPC 
VARS 
DEST 


CHANS 
LURCHL 
PROG 
NXTLIN 
DATADD 


ELINE 


KLUR 
CHADD 


*=%*+B 
*=k+1 
*=#+1| 
+=#++[| 
+=#++? 
*#=%*+]| 
*=++? 
+=*+38 
*=%++? 
*+=%++]| 
*=%#+]1 
*=%++]| 


*=#4+]| 


+=#+] 
#+=%++? 
*=*+? 
*=#4+| 
*=%++? 


*=#+]| 
*=%++? 
*=%+] 
*=*+j 
#=%++? 
+=#+? 
#$=%#+?2 


+=++? 
*=%++?2 
+=#++? 
#=%+?2 
*#=%*+? 


+=++? 


*+=4++? 
*#=%*+2?2 


u a BE a Ya . 08 .- (8 (an ME 


2*4 SPEICHERPLÄTZE FÜR TASTATUR 
ZULETZT GEDRUCKTE TASTE 

TV FRAMES DELETE BEFORE REPEAT 
TV FRAMES PER REPEAT 

ARGUMENT FOR FUNCTION 

COLOR INPUT FROM KEYBOARD 
COLOR, AT AND TAB POS. 

OFFENE KANÄLE 
ZEICHENSATZADRESSE -2556 

LÄNGE FÜR EINEN WARNPIEPSER 
LÄNGE DES TASTENKLICKS 

FÜR MELDUNGEN: NUMMER -1 

KEINE MELDUNG AUSZUGEBEN: $FF 
VARIOUS FLAGS 

BIT 1: PRINTER IST ANGESPROCHEN 
FLAGS FÜR BILDSCHIRM 

ERROR STACKPOINTER 

LIST RETURN ADRESSE 

MODEB’K FL/EYZLETFS 

NUMMER DER ZEILE, WOHIN 
GESPRUNGEN WIRD (60T0O USW.) 
BEFEHL DER ZEILE BEI SPRUNG 
AKTUELLE BASICZEILENNUMMER 
ZEIGER AUF BEFEHL DER ZEILE 
BORDER COLOUR * 8 / ATTR. LO 
AKTUELLE EDITORZEILE 

BEGINN DER VARIABLEN 
VARIABLENADRESSE BEI EINER 
ZUWEISUNG 

POINTER FÜR KANALDATEN 
AKTUELLE I1/0-INFO-ADRESSE 
START DES BASICPROGRAMMS 
ADRESSE DER NÄCHSTEN BASICZEILE 
ZEIGT AUF ENDEBYTE DER 

LETZTEN DATEN 

ADRESSE EINES EINGEGEBENEN 
BEFEHLS 

CURSORADRESSE 

NÄCHSTES ZU INTERPRETIERENDES 
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ScsF BASICZEICHEN 


’ 
car XPTR #=%4+2 ; ZEIGT BEI EINGABEFEHLER AUF 
Schl ı DAS ZEICHEN NACH DEM ? 
Sc#äil WORKSP *=*+2 ; DERZEITIGER WORKSPACE 
3663 STKBOT *=#+2 ; ANFANG DES CALCULATORSTACK 
3665 STKEND #=*+2 ; ANFANG DES FREIEN SPEICHERS 
3667 BREG *#=%#+l ; ECALCULATOR’S B REGISTER 
Sch MEM *=%*+2  CALC MEM AREA (NORM.=MEMBDT) 
SchA FLABS2 *=#+1 ; 
oCcäB DFSZ  *=%#+1 ; ZEILENZAHL +1 IM UNTEREN 
ocät ; BILDSCHIRMTEIL 
Scöt STOP #=%+2 ; NUMMER DER OBERSTEN ZEILE 
OcsE ; EINES LISTINGS 
Scö6E DLDPPC *=*+2 ; ZEILENNUMMER FÜR CONTINUE 
3670 DSPEC #=*#+1 ; NÄCHSTER BEFEHL FüR CONTINUE 
5671 FLAGX #=#+1 
3672 STRLEN *=#+2 ; LENGTH DF STRING TYPE DEST. 

IN ASSGENMT 
5674 TADDR *=%*+2 ı ADDRESS OF NEXT ITEM IN SYNTAX 
TABLE 

3676 SEED *=%*+?2 ; SEED FüR RND / WIRD DURCH 
3678 ; RANDOMIZE GESETZT 
3678 FRAMES *=*+3 : TV FRAME CDUNTER 
s67B UDG *=%+2 ı USER DEF. GRAPHICS ADRESSE 
oc7D COORDS *=*+2 ; KOORDINATEN DES LETZTEN PLOT 
Ssc7F PPOSN #*=*+1 ; 33-COL PRINTER POS. -ZEIGER 
3680 PREC *=%*+2 ; FÜR PRINTER-BUFFER i 
682 ECHDOE *=#++2 ı 35-C0OL/24-ZEILENNR. FüR INPUT 
3684 DFCC *=%+2 ; PRINTADRESSE IM DISPLAYFILE 
3686 DFECL #=#+2 ı WIE DFEC FüR UNTEREN TEIL 
3688 SPOSN #=#+2 ; 33-CDL/24-ZEILENNR. FÜR PRINT 
acBA SPOSNL *=*+2 ; 33-COL/24-ZEILENNR., UNT. TEIL 
Sc8t SCRET #=#+1 ; SCROLL-ZÄHLER 
3Cc8D ATTRP *=%#+1 :ı AKTUELLE FARBEN, PERMANENT 
ocBE MASKP %*=%#+1 ; ' e ‚„ TRANSPARENT 
Schr, ATTRT *=#*+| ; . . ‚ TEMPORARY 
3690 MASKT %*=%*+1 ; ® ’ ‚ TRANSP., TEMP. 
3691 PFLAG #*=#+1 ; 
6972 MEMBOT #=*+30 ; EALCULATOR SPEICHERBEREICH 
SCcBO NMIREG *=*+2 : FÜR NMI-ROUTINE BENUTZT 
SCcB2 RAMTOP *=++2 ; LETZTER SPEICHERPLATZ FüR BASIC 
ocßp4 PRAMT %*=#++2 ;ı LETZTER RAMSPEICHERPLATZ 
ocB& KANMEM 
SCBA FRE 22 2 222 202202020252 02 020 252020 2,2 020,272 027272027272 02725:2 72 0:2 5272202720 2520272027202 2 2027272722222 
SCB& - 
ocBä ; 
ocB& *=$0 
0000 3 RESET: DI ı START DES BETRIEBSSYSTEMS 
0001 AF XOR A ; REG A LÖSCHEN 
0002 LLIEF FF LD DE,$FFFF ı DBERSTE MöGLICHE RAMZELLE 
0005 C3 CB 11 JP RESETI 
0008 - 
0008 ; RESTART - VEKTOREN 
2008 i 
0008 2A SD SC ERRAUS LD HL, (CHADD) ; DER ERRORZEIGER WIRD AUF DIE 
000B 22 SF SC LD (XPTR),HL ; EINGABE GESETZT, WELCHE NICHT 
000E 18 43 JR #53 ; MEHR INTERPRETIERT WERDEN KANN 
0010 i 
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0010 
0012 
D013 
0014 
0015 
Do1l6 
0017 
0DO1B 
O01B 
DOlE 
DoiE 
OOIF 
0020 
0020 
0023 
0025 
0026 
0027 
0028 
0028 
DO2B 
n02C 
O02D 
OOZE 
DOZF 
2030 
2030 
0031 
0034 
0035 
0058 
0038 
DOSB 
0038 
0039 
D03A 
003D 
DOSE 
D041 
0042 
0043 
0045 
0048 
0048 
0049 
OO4A 
0OAD 
DO4E 
NO4F 
0050 
0051 
0052 
0053 
0053 
0054 
0055 
0058 
DOSc 


N ns rm 


DNA4DeaDn 


De 


GE 


SD 


7D 


74 
F7 


OB 


61 


; GE 


78 


78 


03 
34 


BF 


15 


00 


00 


Cd 


40 


02 


FD 75 00 


ED 7B 3D SC 


C3 


C5 


1& 


PRTOUT JP #$15F2 


GETAKT 


AUSWER 


; 
GETNXT 


; 
CALRUF 


REST3O 


; INTERRUPT - ROUTINE 


; 
INTERR 


; 
ERROR 


BUCHSTABEN IN REG A AUSDRUCKEN 


„BYT $FF,S$FF,S$EF,$FF,$FF 


LD HL,(CHADD) 
LD A,(HL) 
CALL $7D 

RET NE 


CALL $74 
JR AUSWER 


„BYT $FF,$FF,$FF 


JP #335B 


HOLT AKTUELLES ZEICHEN AUS 
PROGRAMM ODER BEI EINGABE 
PRÜFEN AUF STEUERZEICHEN 
DRUCKBARES ZEICHEN/ BASICTOKEN 


HOLT NÄCHSTES ZEICHEN 


SPRUNG IN RECHENROUTINE 


„BYT $FF,$FF,S$FF,$FF,SFF 


PUSH BC 


LD HL,(WORKSP) 


PUSH HL 
JP #1&9E 


PUSH AF 
PUSH HL 
LD HL, (FRAMES) 
INC HL 


LD (FRAMES) ‚HL 


LD A,H 

OR L 

JR NZ,#48 
INC (IY+$40) 


PUSH BC 
PUSH DE 
CALL KEYBODA 
Pür' DE 

POP BE 

POP HL 

POP AF 

EI 

RET 


POP HL 

LD L,(HL) 

LD (IY+0),L 
LD SP,(ERRSP) 
JP 1665 


RESERVIERE SPEICHERPLATZ IM 
WKORKSFACE, ANZAHL = EC 


(UHR UND TASTATUR) 


REGISTER RETTEN 


FRAMES INKREMENTIEREN 
ZEIT IN 1/50 SEKUNDEN 


DIE 2 BYTES VON FRAMES 
AUF NULL PRÜFEN 


WENN NULL, DRITTES BYTE 
INKREMENTIEREN 


TASTATURABFRAGE 
REGISTER ZURÜCKLADEN 


ADRESSE DER FEHLERSTELLE LADEN 
DIE DORT STEHENDE FEHLERNUMMER 
IN "ERRNR' SCHREIBEN 

SP RESTAURIEREN 
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00OSF 
00OSF 
0060 
0081 
0082 
0063 
0064 
0065 
0055 
0084 
0055 
0066 
0057 
0068 
006B 
006&C 
005D 
OO6F 
0070 
0071 
0072 
0074 
0074 
0077 
0078 
007B 
007C 
007D 
007D 
007D 
007D 
007F 
0080 
0080 
0082 
0083 
0083 
0085 
0085 
008& 
0088 
0089 
0089 
0089 
00BA 
00BA 
0O08B 
008D 
DOBF 
0090 
0091 
0094 
0095 
0095 
0095 
0095 
0095 
0095 
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BO Sc 


01 


45 


SD Sc 


SD SC 
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oD 


18 


16 
01 


SD Sc 


„BYT $FF,$FF,$FF,SFF,SFF,SFF,SFF 


; 
; NICHT MASKIERBAREN INTERRUPT BEARBEITEN 


‚ 
NMI PUSH AF 


u. 88 1a 


 .. #8 -— WM. . 


PUSH HL 

LD HL, (NMIREB) 
LD A,H 

OR L 

JR NZ,$70 

JP (HL) 

POP HL 

POP AF 

RETN 


LD HL, (CHADD) 
INC HL 

LD (CHADD)I,HL 
LD A,(HL) 

RET 


VERGLEICH DER BASIC - 


CP $21 
RET NE 


CP $D 
RET Z 


CP $10 
RETC 


CP $18 
CCF 


} 
“ 


’ 


; 


FALLS NMIREG = NULL, WIRD EIN 
KALTSTART BEI $0 DURCHGEFÜHRT, 


IN ALLEN ANDEREN FÄLLEN PASSIERT 
NICHTS 


PROGRAMMZEIGER ERHÖHEN 


; UND DAS NEUE ZEICHEN LADEN 


ZEICHEN 


RÜCKKEHR, WENN >= $21 
ALSD BEI ALLEN DRUCKBAREN 
ZEICHEN DDER TOKENS 

ODER CARRIAGE RETURN 


RETURN MIT CARRY BEI $00...$0F 


BEEINFLUSSUNG VON CHADD, DEM AKTUELLEN 


RET C 


INC HL 

CP $16 

JR C,*90 

INC HL 

ScF 

LD (CHADD) ,HL 
RET 


-—.-— Ei a ei 


ı BASIC-ZEICHENZEIGER 
; RETURN MIT CARRY BEI $18...%20 


HIER BEI #10-#17 INKREMENTIEREN 
#16, #17 AUSBLENDEN 

BEI $10-15 NICHT INKREMENTIEREN 
NUR BEI 15, 17 NOCHMALS ERHÖHEN 


AKTUELLES BASIC-ZEICHEN SETZEN 
MIT CARRY SET 


HIER STEHEN UMFANGREICHE TABELLEN, BEGINNEND MIT: 
ALLE BASIC - STATEMENTS IN ASCII-TEXTFORM 
DAS LETZTE ZEICHEN IST MIT $80 GEDODERT 


0095 
0095 
0098 
0099 
OOFE 
DOFF 
DOAO 
DoAl 
00A2 
00A3 
O0A7 
DOAB 
OOAE 
DOAF 
00B2 
00B3 
00B4 
00B3 
OOB? 
DOBE 
OOER 
GOBE 
DORF 
ÜOLO 
H0C2 
O0C3 
ODCS 
H0Ca5 
DNCER 
D9C? 
DOCB 
GOOGLE 
DOCE 
DOECF 
ooDi1 
00D2 
00D4 
00D5 
00D7 
00ODB 
00D9 
DODA 
ODE 
OODD 
DODF 
ODER 
QOE2 
O0ES3 
OOES 
DOES 
DOEB 
ODE? 
OOET 
DOED 
OOEE 
DOEF 
DOFI 
OÖFZ 


„BYT $BF ; FRAGEZEICHEN 

AE „BYT 'RN’,$CA 5 RND 

4E „BYT 'INKEY',$A4 ; INKEY$ 
BT pi ; Pl 
„BYT 'F’,$CE ı FN 

4F 49 AE „BYT ‘POIN’,$D4 ; POINT 

43 „BYT ’SCREEN’,$A4 ; SCREEN 

54 54 „BYT 'ATT’,$D2 ; ATTR 
BYT 'A’,$D4 AT 

41 „EYT 'TA’,$C2 ; TAB 

41 AC „BYT "VAL',SA4 + Vals 

ar 44 ‚BYT 'COD’,$C5 ; CODE 

41 „BYT 'VA’,scEE 5; VAL 

45 „BYT 'LE',$CE 5 LEN 

49 „BYT 'SI’,$CE ; SIN 

Ar ‚BYT 'CcH’,$03  °; 608 

41 „BYT 'TA',$CE  ; TAN 

53 ‚BYT 'AS’,$CE ; ASN 

43 „BYT 'AC’,$D3 ; ACS 

54 „BYT ’AT',SCE 5; ATN 
BYT ‘L’,$CE ; LN 

58 „BYT 'EX',$DO + EXP 

AE „BYT 'IN’.$D4 5; INT 

5i „BYT 'SR’,$D2  ; SER 

47 „BYT '56',$CE 3; SEN 

42 „BYT 'AB',$DS  ; ABS 

45 45 „BYT 'PEE',$CB ; PEEK 
‚BYT '1’,$CE ; IN 

53 „BYT 'US’,$D2 5; USR 

54 52 „BYT 'STR’,$A4 4 STR$ 
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DOFS 
OOF& 
O0OF? 
DOFA 
DOFC 
OÖFD 
DOFF 
0100 
O10l 
0102 
0104 
0105 
010& 
0107 
0108 
0109 
D10A 
D10B 
DLGE 
OLOF 
0112 
0113 
0114 
0115 
Gl1B 
0119 
QLIE 
OliF 
0121 
0122 
0127 
0128 
O12B 
D12C 
0130 
0131 
0136 
0137 
013D 
Q13E 
0142 
0143 
0148 
0149 
OLAC 
D14D 
0152 
0153 
0155 
0156 
D15A 
D15B 
O1SF 
2180 
0165 
0164 
Ol&C 
O1&D 
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48 


AF 


49 


4E 


49 


48 


4E 


36 


32 


4E 


45 


36 


41 


32 


45 


30 


41 


45 


47 „BYT 


"CHR’,$A4 
"ND’,#D4 
"BI’,$CE 
"0°,$D2 


"AN’,$#C4 


"LIN’,$C5 
THE’ ,$CE 
"T’,$CF 


"STE’,$DO 


DEF F',$CE ; 


"CA’,$D4 


"FORMA’,$D4 ; 


"MOV’,$C5 


} 


TO 


STEP 


DEF FN 


CAT 


FORMAT 


MOVE 


"ERAS'’,$C5 ; ERASE 


"DPEN ',$3 ; 


OPEN # 


"ELOSE ',$A3 ; CLOSE # 


"MERG',$C5 ; 


MERGE 


"VERIF',$D9 5; VERIFY 


BEE’ ,$DO 


"EIRCL’,$C5 5; 


"IN’,#CB 


; 


"PAPE’',$D2 ; 


'FLAS’,$CB ; 


"BRIGH',#D4 ; 


"INVERS’ ,#C5 


"DVE’,$D2 


BEEP 
CIRCLE 
INK 

PAPER 
FLASH 
BRIGHT 

; INVERSE 


DVER 


0170 
0171 
0173 
0174 
0179 
017A 
O17E 
O17F 
0182 
0183 
0186 
0187 
O18A 
D1BB 
0191 
0192 
01974 
0195 
QO19A 
019B 
01A2 
Q1A3 
01AS 
O1Ad 
O1AB 
01A9 
OIAB 
DIAC 
O1BO 
OlBi 
O1B& 
O1B7 
OlBB 
DIBC 
DIEF 
O1CH 
O1C3 
91C4 
O1C6 
01C7 
OICR 
OICE 
DIEF 
D1DO 
D1D3 
01D4 
O1De 
01D9 
OIDE 
QO1DD 
OLDF 
DIEO 
O1E3 
D1E4 
DIEE 
OiED 
OLEE 
DIEF 


33 


30 


ac 


49 


AF 


41 


24 


36 


54 


.BYT 

«BYT 
33 ‚BYT 
.BYT 
.BYT 
‚BYT 
«BYT 


.BYT 


4E 


.BYT 


.BYT 


«BYT 


„BYT 


DU’,$D4  ; 
'LPRIN’,$D4 
'LLIS’,$D4 ; 
'STO',$D0 ; 
'REA’,$CA ; 
"DAT',SCI ; 
'RESTOR’,$C5 


"NE’,$D7 ; 


"BORDE’,$D2 ; 


"CONTINU',$C5 ; 


Di’ 
'RE’,$SED ; 
FO',sD2  ; 
"560 T',$CR 5; 
"60 SU’,$C2 ; 
INPU',$D4 ; 
'LOA’,$C4 ; 
'LIS’,$D4 ; 
'LE',$D4 5; 
"PAUS',$C5 ; 
"NEX’,$DA ; 
'POK',$C5 ; 
"PRIN’,$D4 ; 
"PLO’,$D4 ; 
'RU',SCE  ; 
"SAV',$SCH ; 


"RANDOMIZ’,#C5 ; 


DUT 
LPRINT 
LLIST 
STOP 

READ 

DATA 

ı RESTORE 
NEW 
EORDER 
CONTINUE 
DIM 


REM 


50 TO 
50 SUB 
INPUT 
LOAD 
LIST 
LET 
FAUSE 
NEXT 
FOKE 
PRINT 
PLOT 
RUN 
SAVE 


RANDOMIZE 


25 


OiFi D3 


OIF2 44 52 41 „BYT 'DRA’,$SD7 ; DRAW 

oiFS D7 

OiF& 43 40 45 4 „BYT ‘CLEA’,$D2 ; CLEAR 

OiFA D2 

OiFB 52 45 .„EYT 'RETUR’,$CE ; RETURN 
0200 CE 

0201 43 4F 50 „BYT 'COP’,$D9 ; COPY 

0204 D9 

0205 

0205 FREE 22222222 2222222, 2 2222,22 222222022 222222222 220222220202 2020 2220202020202 0 2 0202022222022 22222 2222 
0205 ' 

0205 ; TABELLE DER ZUORDNUNG KEYBOARD MATRIX - ASCII 
0205 ı DIESE TABELLE FÜHRT VON DER VERDRAHTUNG DER TASTEN 
0205 ; AUF IHREN ASCII-WERT. 

0205 ' 

0205 42 KEYTAB „BYT $42 ; B REIHE 1 
0205 48 .BYT $48 > H 

0207 59 „BYT $59 Y 

0208 36 „BYT $36 6 

0209 35 „BYT $35 5 

0204 54 ‚BYT $54 7 

020B 47 „BYT $47 6 

0206 5& „BYT $56 sv 

020D 

020D A4E „BYT $4E : N REIHE 2 
020E 4A „BYT $4A 0) 

020F 55 „BYT $55 U 

0210 3 ‚BYT $37 7 

0211 34 „BYT $34 4 

0212 52 „BYT $52 OR 

0213 46 „BYT $46 ı F 

0214 43 „BYT $43 wi 

0215 ; 

0215 4D „BYT $4D ; M REIHE 3 
0216 4B „BYT $4B ;K 

0217 49 „BYT $49 ej 

0218 38 „BYT $3 u: 

0219 33 „BYT $33 3 

021A 45 ‚BYT $45 ;E 

021B 44 „BYT $44 ; D 

0216 58 „BYT $58 X 

021D ; 

021D O0E „BYT $0E ‚ SYMBOL SHIFT REIHE 4 
021E 4C „BYT $4C E- 

O21F AF „BYT $4F 0 

0220 3 „BYT $39 9 

0221 32 „BYT $32 2 

0222 57 „BYT $57 MW 

0223 53 „BYT $53 5 

0224 5A ‚BYT $5A 1 

0225 ’ 

0225 20 „BYT $20 ; LEERTASTE REIHE 5 
0225 OD „BYT $0D ; ENTER 

0227 50 „BYT $50 pP 

0228 30 ‚BYT $30 0 

0229 31 „BYT $31 4 

022A 51 „BYT $51 B 
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022B 
022C 
022C 
OZZE 
022C 
022C 
022C 
O22E 
n22C 
022 
022C 
D22C 
022D 
O22E 
022F 
0230 
0231 
0232 
02353 
0234 
0235 
0235 
0237 
0238 
0239 
023A 
023B 
025C 
023 

023E 
025F 
0240 
0241 
0242 
0243 
n244 
0245 
02465 
0245 
024& 
0246 
0247 
0248 
0249 
24a 
024B 
O24Cc 
024D 
O24E 
O24F 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 


4 


.BYT 


u EEE a NEE u TEE u 


‚BYT 
.BYT 
«BYT 
.BYT 
‚BYT 
„BYT 
„BYT 
„BYT 
.BYT 
„BYT 
.BYT 
.BYT 
.BYT 
.BYT 
«BYT 
.BYT 
.BYT 
«BYT 
«BYT 
«BYT 
„BYT 
„BYT 
.BYT 
.BYT 
.BYT 
‚.BYT 


’ 

ı DIE ROTEN 

} 
.BYT 
.BYT 
‚BYT 
.BYT 
.BYT 
.BYT 
.BYT 
„BYT 
»BYT 
.BYT 
.BYT 
„BYT 
.BYT 
‚BYT 
„BYT 
‚BYT 
.BYT 
.BYT 


#41 


$E3 
$C4 
$EO 
$E4 
$B4 
$BC 
$BD 
$BB 
$AF 
$BO 
$Bi 
$C0 
£A7 
$A6 
$BE 
$AD 
£B2 
$BA 
$E5 
$A5 
$02 
$E1 
$B3 
$B9 
$C1 
$B8 


TABELLEN DER BASIC-TOKENS 


(DURCHSUCHUNG NACH FESTSTELLUNG VON ASCII-WERT 
UND ZUSTAND DER FUNKTIONSTASTEN) 

HIER ZUERST: 
DIE GRÜNEN BEFEHLE AUF 


DEN TASTEN A,..2 


READ 
BIN 
LPRINT 
DATA 
TAN 
SGN 
ABS 
SOR 
CODE 
VAL 
LEN 
USR 

PI 
INKEY$ 
PEEK 
TAB 
5SIN 
INT 
RESTORE 
RND 
CHR$ 
LLIST 
COS 
EXP 
STR#$ 
LN 


BEFEHLE UNTER DEN TASTEN A...Z 


$7E 
DE 
$DA 
$5C 
$B7 
£7E 
£7D 
£DR 
£BF 
£AE 
£AA 
£AB 
DD 
DE 
$DF 
£7F 
$B5 
$D& 


SCHLANGENLINIE 

BRIGHT 

PAPER 

SCHRÄGSTRICH RüCKWARTS 
ATN 

GESCHWEIFTE KLAMMER AUF 
GESCHWEIFTE KLAMMER ZU 
CIRCLE 


SCREEN$ 
ATTR 
INVERSE 
DVER 

DUT 
COPYRIGHT 
ASN 
VERIFY 
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0258 
0259 
025A 
025B 
025C 
025D 
025E 
0O2SF 
0260 
0260 
260 
02&0 
0261 
0282 
0263 
0264 
0265 
0266 
0267 
0248 
02659 
O26A 
026A 
ODZ&A 
02&4A 
02&B 
026C 
025D 
O2&E 
0O26F 
0270 
0271 
0272 
0273 
0274 
0275 
027& 
0277 
0278 
0279 
027A 
027B 
027C 
027D 
0O27E 
0O27F 
0280 
0281 
0282 
0283 
0284 
0284 
0284 
0284 
0285 
028& 
0287 
0288 
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. 
, 


.BYT 
„BYT 
.BYT 
.BYT 
„BYT 
.BYT 
«BYT 
„BYT 


$7C 
D5 
$5D 
DB 
$B6 
$D9? 
+5B 
$D7 


. 
’ 
» 
’ 
“ 
’ 
” 
’ 
. 
’ 
” 
, 
. 
’ 


STRICH 

MERGE 

ECKIGE KLAMMER ZU 
FLASH 

ACS 

INK 

ECKISE KLAMMER AUF 
BEEF 


BEFEHLE ÜBER DEN TASTEN 0...9 


ROTE 


ROTE 


„BYT 
.BYT 
„BYT 
.BYT 
„BYT 
.BYT 
„BYT 
.BYT 
«BYT 
«BYT 


BEFEHLE AUF DEN 


«BYT 
.BYT 
.BYT 
„BYT 
.BYT 
«BYT 
«BYT 
.BYT 
.BYT 
«BYT 
«BYT 
‚BYT 
.BYT 
„BYT 
.BYT 
.BYT 
.BYT 
„BYT 
.BYT 
„BYT 
.BYT 
.BYT 
„BYT 
.BYT 
.BYT 
„BYT 


BEFEHLE UNTER DEN 


«BYT 
«BYT 
.BYT 
„BYT 
„BYT 


£0C 
$07 
06 
+04 
£05 
$08 
$0A 
£0B 
$09 
OF 


$E2 
£2A 
£3F 
$CD 
CB 
$CC 
$CB 
5E 
$AC 
$2D 
+2B 
£3D 
£2E 
$2C 
$3B 
$22 
$C7 
$35C 
$C3 
$3E 
$C5 
$2F 
$C9 
$60 
$C6 
3A 


DO 
CE 
$AB 
$CA 
$D5 


EEE a A ae TEE u 


DELETE 

EDIT 

SHIFT LOCK 

VIDEO NORMAL 
INVERSE VIDED 
CURSDR NACH LINKS 
LURSDOR NACH UNTEN 
CURSDR NACH DBEN 
CURSOR NACH RECHTS 
GRAFIK 


TASTEN A...Z 


ZU Ey -—.. We am . 


u. a TEE a NEE a NEE ar TEE ae ME u TEE u ER a -. 


a NEE a WE 


5TOP 

* 

? 

STEP 

TO 

THEN 

PFEIL NACH OBEN 
AT 


I 
SEMIKOLON 


{= 


‘> 

POUND SIGN 
AND 

TASTEN 0...9 


FORMAT 


0289 
0ZBA 
0O2ZBB 
O2BC 
028D 
02BE 
02BE 
OZBE 
0O2BE 
O2BE 
O2BE 
O2BE 
N28BE 
028E 
O2BE 
02BE 
O2BE 
0290 
0290 
0293 
0296 
0296 
0296 
02978 
0299 
0299 
029B 
029B 
029D 
029E 
O29F 
02AO 
O2AO 
O2A1 
02A3 
ND2A3 
O2AS 
02A7 
02A8 
DZAR 
0249 
OZAR 
O2AB 
OZAB 
O2AC 
DZAE 
OZAE 
02ZB0 
02B0 
02B0 
02B0 
O2B1 
02B2 
02B3 
02B3 
02B5 
02B& 
02B8 


2F 


FF 


rE 


78 


IF 


DE 


Fa 


00 


E& 


19 


FF 
FE 


.BYT $D4 
„BYT $Di 
«BYT $D2 
.BYT $#A9 
.BYT $CF 


00-27 SOWIE IN (D) 


-—-—— A a TE 


LD L,$2ZF 


LD DE,$FFFF 
LD BC,$FEFE 


NXTREI IN A, (6) 
CPL 


AND $1F 


JR Z,NDKEY 
LD H,A 
LD A,L 
TESTS INC D 


RET NZ 
KEINTA SUB 8 


SRL H 

JR NC,KEINTA 

LD D,E 

LD E,A 

JR NZ,TESTZ 
NOKEY DEC L 

RLC B 


JR C,NXTREI 


KEYBOARD-ABFRAGEROUTINE 
SIE LIEFERT IN (E) EINE GEDRÜCKTE TASTE ALS WERT 


DIE AUSSAGE üBER SHIFT-FUNKTIDN 


ZEIGER AUF ENDE DER 
KEYCODE-TABELLE +8 

KEINE TASTE 

C = 1/0-PORT DER TASTATUR 

B = MASKE MIT EINER NULL 

ZUM FESTSTELLEN EINER TASTE 
ABFRAGEN 1 SPALTE DER TASTATUR 
EINE '1’ SOLL EIN 

TASTENDRUCK SEIN 

; NUR DIE UNTERSTEN 5 EIT SIND 

; MIT TASTEN VERBUNDEN 

; KEIN TASTENDRUCK 

; MATRIXWERT NACH H (1-5 EINSEN) 
; STARTWERT AUS L HOLEN 

; DB HALT #7" BEI 1-2 BPR- 

; DRÜCKTEN TASTEN 
5 
’ 
’ 
, 


- oa ae NEE a A u NEE a 


RETURN BEI MEHR ALS ZWEI TASTEN 
A ENTHÄLT DEN TABELLEN- 
ZEIGER DES KEYCODE 
; TASTENDRUCK SUCHEN 
; BIS EINE EINS IM CARRY 
; FüR ZWEI ZULÄSSIGE TASTEN 
; NOCHMALS #$FF LADEN 
; TASTENCDDE (#00-#27) NACH E 
NOCHMALS TASTE IN LAUFENDER 
REIHE SUCHEN 


NÄCHSTE REIHE ZU JE FüNF TASTEN 
; MASKE IN B UM EINE STELLE NACH 
; LINES SCHIEBEN 

ı NÄCHSTE TASTENREIHE 


; WENN DIE NULL VON B IN CARRY GELANST, ROUTINE FERTIS 


TEST AUF FUNKTIONSTASTEN 

BEI EINER TASTE STEHT HIER $FF 
RETURN, WENN NUR EINE TASTE 
GEDRUCKT WAR 

TASTE 'CAPS SHIFT’ ? 

JA 

TASTE "SYMBOL SHIFT’ ? 

JA 


“. u ee . a. .-_— as 
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02B9 7B LD A,E REGISTER E UND D VERTAUSCHEN 


02BA 5A LD E,D ' 

02BB 57 LD D,A ; ZUR PRÜFUNG DER 

02BC FE 18 CP $18 ; TASTE ‘SYMBOL SHIFT’ 

02BE C9 RET ; ZERO-FLAB GESETZT BEI "SYMBOL 
02BF ; SHIFT + ANDERE TASTE 

O2BF „END 

02BF ‚LIB SPECO400-8 

02BF ; SINCLAIR 2X SPECTRUM TEIL 0400 

02BF ; 

02BF ı AUFRUF DER TASTATURABFRAGE UND AUSWERTUNG DER EINGABEN 
02EF ; ERFOLGT IM INTERRUPT, ALLE 1/50 SEKUNDEN 

02BF ; 

02BF CD BE 02 KEYEDA CALL $28E ; TASTATURABFRAGE 

0262 CD RET NZ 

0203 ı HIER ERFOLGT WEITERE AUSWERTUNG IN DEN FÄLLEN: 

0263 ; KEIN ODER EINFACHER TASTENDRUCK 

0263 ; "CAPS SHIFT' PLUS ANDERE TASTE 

0203 ; "SYMBOL SHIFT' PLUS ANDERE TASTE 

0263 ; 

0263 ; DIE TASTENAUSWERTUNG BENUTZT DIE 8 BYTES 'KSTATE‘ 
0203 ; IN ZWEI GRUPPEN ZU VIER BYTES, UM ZWEI FOLGENDE 
0263 ; GEDRÜCKTE TASTEN VERARBEITEN ZU KÖNNEN 

0263 ; 

0263 ; BYTE 0 : BELEGTKENNUNG (FF=FREI, O=BELEGT) 

0263 ; BYTE 1 : REPEAT-ZÄHLER (5...0) 

0263 ; BYTE 2 : REPDEL (WARTEZEIT VOR BEGINN DES REPEAT) 
0263 ; BYTE 3 : CODE DER GEDRUCKTEN TASTE, ASCII ODER TOKEN 
0263 

0263 21 00 56 LD HL,KSTATE 

0266 CB 7E BIT 7, (HL) ‚ IST TASTATURSPEICHER FREI ? 
02C8 20 07 JR NZ,BLOCK2 ; SPRUNG BEI ’UNBENUTZT' 

02CA 23 INC HL 

02CB 35 DEC (HL) ; REPEAT-ZÄHLER HERUNTERZÄHLEN 
02CC 2B DEC HL 

02CD 20 02 JR NZ,BLOCK2 

02CF 36 FF LD (HL) ,$FF ; BLOCK FREIGEBEN 

02D1 7D BLOCK2 LD A,L 

02D2 21 04 5C LD HL,KSTATE+4 ; BLOCK2 ANWÄHLEN 

0205 BD EP ; WAREN WIR BEI BLOCK2 ? 

02D&4 20 EE JR NZ,$2C6 ; WENN NICHT: FREIPRÜFUNG 2 
02D8 

02D8 CD 1E 03 CALL $31E 

02DB DO RET NE ; ENDE, WENN KEINE TASTE 

02DE 21 00 5C LD HL,KSTATE 

02DF BE CP (HL) ; NOCH DIE SELBE TASTE GEDRÜCKT? 
02E0 28 2E JR Z,KEYREP ; WENN JA, REPEAT 

02E2 EB EX DE,HL 

02E3 21 04 5C LD HL,KSTATE+4 ; BLOCK2 PRÜFEN 

02E& BE CP (HL) ; NOCH DIE SELBE TASTE GEDRÜCKT? 
02E7 28 27 JR Z,KEYREP ; WENN JA, REPEAT 

02E9 CB 7E BIT 7, (HL) ; BLOCK2 FREI ? 

02EB 20 04 JR NZ,$2F1 

02ED EB EX DE,HL ; KSTATE IN HL ZURÜCKLADEN 
02EE CB 7E BIT 7, (HL) ; FREIPRÜFUNG 

02F0 CB RET ı ; ENDE DER TASTATURABFRAGE 
H2F1 ı BEI BELEST 

02Fi 
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0O2Fi 
O2F1 
OZFI 
02F2 
O2F3 
O2F4 
O2F& 
02F7 
O2FA 
OZFB 
O2ZFC 
OZFF 
0302 
0303 
0306 
0307 
0308 
230B 
n30B 
N3OF 
0510 
2310 
0310 
0310 
n311 
0313 
0314 
0315 
0316 
0314 
0319 
O31A 
0O31B 
O31C 
Q31E 
O31E 
O3I1F 
0321 
0322 
0324 
0325 
0325 
0327 
032 

0S2ZB 
G32C 
032F 
D330 
033 

0332 
0323 


= 
0333 


II MN LAND 


Deco (cd 


rn Ss LA 
DANS 


SI 
m 


18 


7E 
FE 


05 


09 


08 


CB 


05 


DA 


EA 


18 
03 


78 


05 


SA 
it 


oc 


Sc 


02 


; NEUE TASTE GEDRÜCKT 


h) 
LD E,A 
LD (HLI,A 
INC HL 
LD (HLI,5 
INC HL 
LD A, (REPDEL) 
LD (HLI,A 
INC HL 
LD C,(1Y+7) 
LD D,(IY+1) 
PUSH HL 
CALL $333 
POP HL 
LD (HLI,A 
LD (LASTK),A 


SET 3, 117#2) 
RET 


; REPEAT - FUNKTION 


KEYREP INC HL 
LD (HLI,5 
INC HL 
DEC (HL) 
RET NZ 


LD A, (REPPER) 
LD (HL),A 
INC HL 

LD A,(HL) 

JR #308 


LD B,D 
LD D,O 
LD A,E 
CP $27 
RET NC 


CF #18 

JR NZ,$32 
BIT 7,B 

RET NZ 

LD HL,KEYTAB 
ADD HL,DE 

LD A,{HL) 
Str 


EEE en 


BYTE OÖ 

ZEIGT AUF BYTE i 
REFEAT-ZÄHLER AUF 5 SETZEN 
ZEIGT AUF BYTE 2 
ZEITVORGABE FÜR VERZOGERUNG 
IN BYTE 2 LADEN 

ZEIGT AUF BYTE 3 

MODE 

FLAGS 


TASTENCODE (TOKEN} ERZEUGEN 


UND IN EYTE 3 SPEICHERN 
NEU SPEICHERN 

NEU SPEICHERN 

BIT 5, {FLAGS) ZEIGT 
NEUEN TASTENDRUCK AN 


REPEAT ZÄHLER ANWÄHLEN 

UND WIEDER AUF 5 VORSETZEN 
WARTEZEIT ANWÄHLEN 

UND HERUNTERZÄHLEN 


WIEDERHOLRATE SETZEN 

IN BYTE 2 

ZEIGT AUF BYTE 3 (TASTE SELBST) 
TASTENKERT HOLEN 

SETZE LETZEN TASTENDRUCK 


FUNKTIONSTASTEN MERKEN 


"CAPS SHIFT' 
ODER KEINE TASTE : RETURN 


"SYMBOL SHIFT' 

SFRUNG ZUR WEITEREN AUSWERTUNG 
RETURN BEI 'SYMBOL SHIFT' 
ALLEIN 

ADRESSE DER KEYECODE-TABELLE 
AKTUELLES ZEICHEN ALS ASCII- 
WERT AUS DER TABELLE HOLEN 

MIT CARRY WIRD "ZEICHEN 
GEFUNDEN’ SIGNALISIERT 


; AUSWERTUNG DES ERMITTELTEN TASTENCDODES 
; UND BILDUNG DER BASIC-TOKEN JE NACH EINGABEMDDUS 


 {CURSOR MODE K, L, 


LD A,E 
CP #3A 


. 
, 


UND E) 


ASCII-CODE DER GEDRUCKTEN TASTE 
BEI ZIFFERN, SPACE, ENTER 
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0336 
0338 
0339 
033 

033 

0340 
0341 
0341 
0341 
0541 
0344 
0345 
0347 
0347 
0347 
0347 
OS4A 
OZA4A 
D34A 
D34A 
054A 
O3AC 
OS4C 
0534D 
034D 
OS4E 
OS4F 
OS4F 
OS4F 
OS4F 
0332 
0354 
0356 
05358 
035A 
O3SE 
O35F 
0360 
0361 
0363 
0364 
0364 
0366 
0367 
0357 
0359 
035A 
03&6B 
O3&E 
0370 
0370 
0370 
0370 
0373 
0375 
0377 
0379 
037B 
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2F 


ar 


“r 
u! 


Ar 


EB 


D0 


AS 


>30 


9D 
19 


340 


68 
D3 
38 
07 
20 


>30 SE 


03 


’ 
T 


’ 


JR C,$357 
DEC C 

JP M,$S4F 
JR 2,#341 
ADD $4F 
RET 


ODER BEIDEN SHIFTTASTEN 
NUR BUCHSTABEN A...Z 


REVERS-BUCHSTABEN LIEGEN AB $90 


"GRÜNE TOKENS üBER TASTEN A...Z' 


LD HL,#1EB 
INC B 
JR Z,TABDIR 


"ROTE TOKENS UNTER DEN 


LD HL,KEYTAB 


ENDSULTIGES TOKEN WIRD 
ENTSPRECHENDEN TABELLE 


ABDIR LD D,O 


ADD HL,DE 
LD A,{HL) 
RET 


"ROTE TOKENS AUF DEN 


LD HL,$229 
BIT 0,B 

JR Z,TABDIR 
BIT 3,D 

JR 2,$364 
BIT 3,t1Y+4B) 
RET NZ 

INC B 

RET NZ 

ADD $20 

RET 


ADD $AS 
RET 


CP #°0° 
RET C 

DEC 6 

IP M,$39D 
JR NZ,$389 


"ROTE TOKENS UNTER 0. 


LD HL,$254 
BIT 5,B 
JR Z,TABDIR 
CP #'8' 
JR NC,#382 
SUB $20 


TASTEN A...Z’ 


AUS DER 
GELADEN 


E ENTHÄLT DEN ASCII-WERT 
DES ZEICHENS 

IN HL STEHT BASISADRESSE 
MINUS #41 BZW. #30 


TASTEN A...Z' 


; 


SYMBOL SHIFT + BUCHSTABE 
K-MODUS 


FLAGS2 PRÜFEN AUF 'CAPS LOCK' 
SHIFT ? 

ASCII-WERT FüR KLEINSCHREIBUNG 
DIREKT ERZEUGBARE TDKENS 

DURCH ADDITIDN (#E6..) 

ZEICHEN £ #30 ? 

MODUS 


BEI Ko L; € 
BEI 6 


.g' 


OHNE 'CAPS SHIFT’ 


AUS #30-$37 MACHE $10-$17 


037D 04 INC B 


057E CB RETZ ; WENN OHNE SHIFT 

037F C& 08 ADD 8 ; ADDIERE 8 FüR FARBEDODE 18..1F 
0381 C9 RET 

0382 ; TASTEN ’8° UND °9° (CODES FüR BRIGHT UND FLASH) 

05382 D& 36 SUB #56 ı ERZEUGE 2 UND 3 OHNE SHIFT 
0384 04 INC B 

0385 C8 REIT Z ; OHNE SHIFT 

0386 C6& FE ADD $FE ; ERZEUGE OÖ UND 1 MIT SHIFT 
0388 C9 RET 

0389 ; 

0389 ; "GRAFIKZEICHEN AUF DEN TASTEN 0...9° 

0389 ; 

0389 21 30 02 LD HL,$230 s (MIT ’CAPS SHIFT’) 

038C FE 39 CP #'9' ı TEST AUF "GRAPHICS ' 

0O3BE 28 BA JR Z,TABDIR 

0390 FE 530 CP #°0° ; TEST AUF "DELETE ’ 

0392 28 Bö JR Z,TABDIR 

0394 E6 07 AND 7 ; NUR TASTEN 'i..7’, AUS 8 WIRD 0 
0395 [5 80 ADD +80 ı $80-$87 SIND DIE GRAFIKZEICHEN 
0398 04 INC B 

0399 C8 RET Z ı OHNE SHIFT GEDRUCKT: RETURN 
039A EE OF XDR $F ; ERZEUGE STEUERZEICHEN ÜBER 
039C ; DEN TASTEN 1.,.8 

0396 LC9 RET ; (CODES: #88-#8F) 

059D 04 INC B 

039E CB RET 2 ; WENN OHNE SHIFT 

039F CB 658 BIT 5,B ; PRÜFE AUF 'CAPS SHIFT' 

O3Al ; 

O5Al s "BEFEHLE üBER DEN TASTEN 0...9° 

0O3Al ; 

0SAl 21 30 02 LD HL,$#230 

03A4 20 A4 JR NZ,TAEDIR 

D5A& D& 10 SUB $10 ; AUS #30-$39 MACHE #20-#29 
03A8 FE 22 CP $22 ; VERGLEICHE AUF "AT-SIGN’ 

O3AA 28 06 JR Z,$3B2 

O3AC FE 20 EP £20 ; VERGLEICHE AUF UNTERSTREICHEN 
OSAE CO RET NZ 

DSAF 3E SF LD A,$5F ; UNDERLINE 

0351 69 RET 

03B2 3E 40 LD A,'5’ 

n03B4 C9 RET 

03B5 GL ELLE LEERE 
03B5 ; 

03B5 ; LAUTSFRECHER - ROUTINEN 

D3BS ; 

03B5 ; DER LAUTSPRECHER WIRD MIT BIT 4 VON PORT $FE AKTIVIERT 


0385 UND EINGESCHALTET, SOBALD EIN 'OUT’ EINER NULL ERFOLGT. 


L 
03BS5 ; DURCH GUT $FE MIT BIT 4 = EINS WIRD ER ABGESCHALTET. 
03B5 ; RYTHMUS DES EIN- UND AUSSCHALTENS IST DIE TONFREQUENZ. 
03ES5 ; 
03B5S F3 PIEPEN DI ı TASTATUR UND UHR LAUFEN 
D3B6& 7D LD A,L ; WÄHREND FIEFTON NICHT 
03B7 CB 3D SRL L 
05B? CB 53D SRL L 
OSBB 2F CPL 
O3BC EA 03 AND 3 
OS5BE 4F LD C,A 
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O3BF 
03C1 
0365 
0567 
03CA 
DSCC 
OSCD 
OSCE 
OSCF 
03D1 
05D1 
03D2 
03D3 
03D4 
03D5 
03D& 
03D7 
03D9 
03DB 
03DEC 
OÖSDF 
OSDF 
O3EI 
03E3 
O3E3 
03E4 
03E5 
03E7 
03E9 
03E9 
O3EA 
O3EB 
O3ED 
O3EE 
O3EF 
0O3FO 
0O3F2 
03F2 
O3F3 
03F4 
O3F&6 
O3F& 
03F7 
O5FB 
OSFB 
OSFB 
O3F8 
03F9 
053F9 
03F9 
03F9 
O3FA 
OSFB 
OSFEC 
OSFD 
OSFE 
OSFF 
0400 
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EF 


08 


09 


E97 


Di 053 


LD B,0 

LD IX,$3D1 
ADD IX,EC 

LD A,(BORDER) 
AND $38 

RRCA 

RRCA 

RRCA 

OR 8 


NOP 
NOP 
NOP 
INC B 
INC C 
HALBZE DEC C 
JR NZ,HALBZE 
LD C,$3F 
DEC B 
JP NZ,HALBZE 


XOR $10 
DUT ($FE),A 


LD B,H 
LD C,A 

BIT 4,A 

JR NZ,TONMIT 


; 

TONMIT LD C,L 
INC C 
JP (IX) 

; 

TONEND EI 
RET 


s 
; BEFEHLSAUSFÜHRUNG DES 


RST CALRUF 


„BYT $31 
.BYT $2 

.BYT $C0 
„BYT #03 
.BYT $34 
‚BYT $EC 
„BYT $6C 
.BYT #98 


.-—— m. —®. a. 


we a ae Mr 


-—— WE a WE 


BASISADRESSE DER ZEITSCHLEIFE 


AKTUELLE BORDERCOLOUR BEI 


AKTIVIERUNG DES LAUTSFRECHERS 


IN BITS 0..2 VON 
REG A BRINGEN 


KASSETTENAUSGANG ABSCHALTEN 


ZEITSCHLEIFE FÜR HALBE 
ZYKLUSLÄNGE 


BIT 4 INVERTIEREN, UM LAUT- 
SPRECHER ABWECHSELND EIN- 
UND AUSZUSCHALTEN 

REG B WIEDER LADEN 

REG A RETTEN 

MITTE DES ZYKLUS ? 

JA 


NEIN: DE AUF O0 PRÜFEN 

0 = PIEPER ENDE 

REG A ZURÜCK 

REG GC WIEDER LADEN 
SCHLEIFENZÄHLER -1 

UND NOCH MAL ZUR SCHLEIFE 
REG C WIEDER LADEN 

UND WEITER 


INTERRUFT WIEDER FREIGEBEN 


"BEER 


AUFRUF CALCULATOR 

UM DIE WERTE FüR TONHOHE 
(P BZW I=INT(P)) UND DIE 
ZEIT T ZU BERECHNEN 


0401 
0402 
0403 
0404 
0405 
0405 
0407 
0407 
OA0A 
040B 
O40C 
O40E 
OAOF 
0410 
Dali 
0412 
0413 
0414 
0415 
0415 
0418 
0419 
D41A 
O41c 
D4ic 
041D 
O4ir 
0422 
0425 
0425 
0425 
0425 
0427 
0428 
042A 
042C 
O42E 
O42E 
O42F 
0432 
0435 
0438 
0438 
0439 
DASZA 
043B 
043B 
OASC 
043D 
043E 
O4SE 
043F 
0440 
O441 
0442 
0443 
0443 
D44& 


21 92 36 


20 SE 


20 54 


C6 SC 
F2 25 04 
EZ 56 04 


CD 94 1E 
FE OR 


; DKTAVE DES TONS IN B 


DKTAV 


.BYT $1F 
„BYT $F5 
.BYT $04 
‚BYT $Al 
„BYT $0OF 
‚.BYT #38 


LD HL,MEMBOT 
LD A,(HL) 
AND A 

JR NZ,ERRTON 
INC HL 

LD C,(HL) 
INC HL 

LD B, (HL) 

LD A,B 

RLA 

Sec A 

CP C 

JR NZ,ERRTON 
INC HL 

CP (HL) 

JR NZ,ERRTON 


LD A,B 

ADD #3C 

JP P,*425 

JP PO,ERRTON 


LD B,$FA 
INC B 

SUB 12 

JR NC,DKTAV 
ADD 12 


PUSH BC 

LD HL,TONC 
CALL #3406 
CALL #23B4 


RST CALRUF 
‚„BYT #04 
„BYT #38 


POP AF 
ADD (HL) 
LD (HL) ,A 


RST CALRUF 
«BYT $C0 
.BYT #02 
‚BYT #31 
‚BYT £38 


CALL $1E94 
EP OB 


. 
’ 


EXPONENT VON I HOLEN 
NICHT NULL: ERROR 
VORZEICHENBYTE INC 


LOW-BYTE IN B UND A 


TEST OB -12B £=I{= +127 


FALLS NICHT: ERROR 


LORBYTE IN A 
-60 BIS +67 
AKTZEPTIEREN 


DVERFLOWERROR: -128 BIS -&1 


SUCHEN 


u. - wen 


& OKTAVEN UNTER MITTLEREM C 
BEGINNEN 
PRO OKTAVE 12 TöNE ABZIEHEN 


A: ZEIGER AUF HALBTON 
DIESER DKTAVE 

NUMMER DER OKTAVE RETTEN 
BASISADRESSE DER HALBTONE 
HALBTON IN A IN DEN 
CALCULATOR STACK BRINGEN 


UND DIE ENDGULTIGE 
TONHOHE BERECHNEN 


OKTAVNUMMER HOLEN UND 
AUF EXPONENT ADDIEREN = * 2 


FREQUENZ IN MEMO SPEICHERN 


ZEIT MUSS <= 10 SEIN 
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0448 
DAAA 
DA4AR 
O44R 
D4AC 
044D 
D44E 
OAAF 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
045A 
D45B 
O45B 
DASE 
OASF 
0462 
0463 
0464 
0465 
0465 
0466 
0467 
0468 
0468 
0459 
046C 
D46C 
D4&D 
O46E 
O46E 
O4&E 
DABE 
DAAF 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
047A 
047B 
DA7C 
047D 
OATE 
OAT7F 
D4R0 
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B5S 03 


JR NC,ERRTON 


RST CALRUF 
.BYT $EO 
‚„‚BYT $04 
‚:BYT $EO 
.BYT $34 
«BYT #80 
.BYT $43 
‚BYT $55 
„BYT $9F 
.BYT #80 
‚BYT $01 
‚BYT #05 
„BYT $34 
.BYT #35 
.BYT $71 
.BYT 03 
‚.BYT $38 


CALL $1E99 
PUSH BC 
CALL $1E99 
POP HL 

LD D,B 

LD: E;c 


LD A,D 
OR E 
RET Z 


DEG DE 
JP PIEPEN 


5 

ERRTON RST ERRAUS 
„BYT $0A 

) 


;» HALBTONTABELLE 


; 


SONST ERROR 
BERECHNUNG FREQUENZ * ZEIT 


ERMITTELTE FREQUENZ HOLEN 
T* F BILDEN 


ZEITSCHLEIFENWERT HOLEN 
ZWISCHENSPEICHERN 
WERT FREQUENZ * ZEIT NACH BC 


NACH DE ANZAHL 
DER DURCHLÄUFE 


FALLS DE = 0, 
DIREKT RETURN, 


SONST DE -i UND 
ZUR TDNAUSSABE 


; 
TONE  .BYT $89,$02,$D0,$12,$86 


TONECIS „.BYT $89,$0A,$97,$60,$%75 


TOND .BYT $89,$12,$05,$17,$1F 


TONDIS .BYT $89,$1B,$90,$41,$02 


0481 
0482 
0483 
0484 
0485 
0485 
0497 
0488 
0489 
D4BA 
O4BB 
O48C 
048D 
O4BE 
OABF 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
049A 
049B 
049C 
049D 
049E 
DA9F 
04A0 
O4A1 
04A2 
04A3 
04A4 
04A5 
DAA& 
04A7 
O4AB 
04A9 
DAAA 
DAAA 
DAAA 
DAAA 
O4AD 
D4B0O 
O4B1 
04B4 
04B5 
04B& 
D4B7 
O4BA 
OABB 
O4BC 
O4BD 
D4BE 
DABF 


FB 24 
3B SC 


BA Ic 


Pi. ZB 


FE 


TONE «BYT 


TONF .BYT 


TONFIS „BYT 


TONG «BYT 


TONGIS „BYT 


TONA .BYT 
TONB .BYT 
TONH .BYT 


u. WA um 


CALL 


$89,$24,$D0,$53,$CA 


$89 ,$2E,$9D,$36,$Bi 


$89,438,$FF,$49,$3E 


$89,$43,$FF,$6A,$73 


$89,$4F ,$A7,$00,$54 


$89,$50,$00,$00,$00 


$89,369,$14,$F6,$24 


$89,$76,$F1,$10,$05 


DIESE ROUTINE WIRD NICHT BENUTZT 


$24FB 


LD A,(FLAGS) 


ADD A 


JP M,$#1CBA 
POP HL 
RET NC 


PUSH 


HL 


CALL $2BFi 


LD H, 
u x; 
DEC C 
RET M 


D 
E 


ADD HL,BC 
SET 7,(HL) 
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04C1 
0402 
0402 
0402 
0402 
0402 
0402 
0402 
0405 
O4C6 
0409 
0409 
OACB 
O4CD 
04D0 
04D1 
04D2 
04D4 
04D5 
0407 
D4D8 
04D8 
O4DA 
O4DC 
O4DE 
O4EN 
O4E1 
O4E3 
O4E4 
O4E5 
O4EB 
O4EB 
O4EB 
Ö4ER 
O4EA 
O4EC 
O4EE 
OAFO 
O4F2 
O4F4 
O4F& 
O4F6 
04F9 
O4FA 
O4FB 
O4FE 
O4FE 
OAFF 
0500 
0502 
0505 
0506 
0507 
0508 
O50A 
050B 
050E 
050E 
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[9 


SF 


80 


98 


07 


oc 
bE 


01 


25 


05 


IF 


dc 


04 


3B 


05 


00 


05 


; 
HEADER 


; 
; SYNCHRONPULS SENDEN 


} 


SYNCI 


SYNC2 


BYTEABSPEICHERROUTINE 


LD HL,SAVLOA 


PUSH HL 
LD HL,$1F80 


BIT 7,A 
JR 2,$4D0 
LD HL,$C98 


DJNZ HEADER 
DUT ($FE)I,A 
XOR &#F 

LD RB,$A4 
DEC L 


JR NZ,HEADER 


DEC B 
DEC H 
JP P,HEADER 


LD B,$2F 
DINZ SYNCI 
OUT ($FE),A 
LD A,$D 

LD B,$37 
DINZ SYNC2 
OUT ($FE),A 


LD BE,#3BOE 
EX AF,AF 


JP SAVEB 


LD L,H 


’ 


KASSETTENREKORDER UNTERPROSRAMME 


RETURNADRESSE FüR 


KONSTANTE FüR 5 
HEADERTON 


SEKUNDEN 


HEADER SPEICHERN 
KONSTANTE FüR 2 SEKUNDEN 
PROGRAMM/HEADER-FLAG RETTEN 


INTERRUPT SPERREN 


BORDERCOLOUR ROT UND 'MIC’ EIN 


BITPERIODE HEADERTON 
"MIC" EIN/AUSSCHALTEN 


KONSTANTE BITPERIDODE 


; WIEDERHOLUNG, BIS HL 


-. 


KLEINER NULL WIRD 


"MIC’ AUS 
"MIC" EIN UND ROT 
FüR 'MIC’ AUS UND ’CYAN’ 


"MIC" AUS UND CYAN’ 


FLAG ZURÜCKHDLEN 
UND NACH L ZUM ABSPEICHERN 


DE AUF NULL TESTEN 


BYTES ENDE UND "PARITY" 
SONST NÄCHSTES BYTE 
"PARITY"-BILDUNG IN A 
MIT DEM AKTUELLEN BYTE 
UND IN H RETTEN 

"MIC’ EIN UND BLAU’ 
CARRY ALS ENDEMARKIERUNG 
FüR 8 BITS SETZEN UND SENDEN 


SENDEN 


ENDE-"PARITY" NACH L 


OSOF 
oOS1l 
0511 
0512 
0514 
0514 
0516 
0518 
O51A 
OS1C 
OSIE 
OSIE 
0520 
0522 
0523 
0524 
0529 
0525 
0525 
0525 
0527 
052A 
052A 
052B 
052D 
0O52F 
0531 
0533 
0554 
0535 
0536 
0537 
055A 
05SC 
OSSE 
OS3F 
055F 
053F 
OS5F 
0540 
0543 
0545 
0546 
0547 
0548 
054A 
054C 
OS4E 
OS4F 
0550 
0552 
0552 
0553 
0554 
0554 
0555 
0556 
0555 


FE 


FE 


05 


04 


ac 


JR #505 


i 
BITEND LD A,C 


BIT 7,B 


s 
BITANF DJNZ BITANF 


JR NC,BITOUT 
LD B,$42 


BITSET DJNZ BITSET 
BITOUT DUT ($FE),A 


ö 
B 
“ 
’ 


LD B,$3E 

JR NZ,BITEND 
DEC B 

XOR A 

INC A 


TEIL2 DES BITS SENDEN UND 
HIERFÜR ZERO-FLAG SETZEN 


ZEITSCHLEIFE 
WENN NULLBIT 


BEI 1 WEITER VERZOGERN 


TEILi: 'MIC’ EIN UND "BLAU’ 
TEIL2: 'MIC’ AUS UND "GELB’ 


TEIL2 AUSGEBEN 


CARRY LOSCHEN UND 
"MIC" EIN MIT ’BLAU' 


BEIM ERSTEN BIT EINES BYTE IST CARRY GESETZT, 


SONST IMMER GELOSCHT. 


DIES DIENT BEIM ROTIEREN 


DES L-REG ALS BEGRENZUNG AUF 8 BITS. 
SAVEB RLL 


JP NZ,BITANF 


DEC DE 
INC IX 

LD B,$31 

LD A,$7F 

IN A,($FE) 
RRA 

RET NC 

LD A,D 

INC A 

JP NZ,BYTEAU 
LD B,$3B 


SAVEDE DJNZ SAVEDE 


; 
; 
’ 
5 


RET 


. 
’ 
E 
’ 


‚ 


® 
’ 


BIT 7 DER AUSGABE INS CARRY 
UND WEITER BIS B BITS FERTIG 


BYTEZÄHLER -1 
ADRESSE NÄCHSTES BYTE 


TEST DER 'BREAK’-TASTE 


"BREAK’ GEDRÜCKT 


AUSGABE BIS DE = $FFFF IST 


ETWAS VERZÖGERN 


NACH SAVE DDER LOAD HIER HIN ZURÜCKEHREN 


AVLOA PUSH AF 


LD A,(BORDER) 
AND $38 
RRCA 

RRCA 

RRCA 

OUT ($FE),A 
LD A,$7F 

IN A, ($FE) 
RRA 

EI 

JR C,$554 


RST ERRAUS 
.BYT $0C 


POP AF 
RET 


DIESE ROUTINE WIRD BEI 


CARRY RETTEN 

ORIGINAL BORDER COLDUR 
NEHMEN UND IN 

BITS 0..2 


BORDER ORIGINAL 
BREAKTASTE PRÜFEN 


INTERRUPT FREIGEBEN 


BREAK NICHT GEDRUCKT 


SONST MELDUNG 


FLASS ZURÜUCKHOLEN 


"LOAD' UND "VERIFY’ AUFGERUFEN 
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0556 
0555 
0557 
0558 
0559 
055A 
055C 
ÖSSE 
0551 
0562 
0564 
0569 
0567 
0569 
OS6A 
056&B 
OSAB 
DS6C 
OS6F 
0571 
0571 
0574 
0576 
0577 
0578 
0579 
057B 
OS7TE 
0580 
0580 
0580 
0580 
0582 
0585 
0587 
0589 
05BA 
058C 
OSBD 
OSBF 
OS8F 
OSBF 
OSBF 
0591 
0594 
0596 
0597 
0599 
059B 
D5S9E 
OS9IF 
OS9F 
OS9F 
OS9F 
OSAO 
05A2 
OSAS 
05AS 
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OF 
FE 
SF 
FE 


20 
02 


E7 
FA 


E35 


E3 


00 
BO 


05 


05 


04 


05 


05 


05 


05 


LOABRK 
LDABEG 


” 
, 


LDWART 


‚ 
; NUR EIN HEADERSIGNAL 


’ 
HEADIN 


[ln un un 


YNWAR 


LD A,$OF 

OUT ($FE),A 
LD HL,SAVLOA 
PUSH HL 

IN A, ($FE) 
RRA 

AND $20 

OR 2 

LD C,A 

CP A 


RET NZ 
GALL FLANKI 
JR NC,LDABRK 


LD HL,$415 
DINZ LDWART 
DEC HL 

LD A,H 

OR L 

JR NZ,LDWART 
CALL FLANK2 
JR NC,LOABRK 


LD B,$9C 
CALL FLANK2 
JR NC,LOABRK 
LD A,$C6 

CP B 

JR NC,LOABEG 
INC H 

IR NZ,HEADIN 


LD B,$C9 
CALL FLANKI 
JR NC,LOABRK 
LD A,B 

CP $D4 

JR NC,SYNWAR 
CALL FLANKI 
RET NC 


ZERO FLAG LÖSCHEN 
UND RETTEN 

D WIEDER ORIGINAL 
INTERRUPT ABSCHALTEN 
BORDER COLOUR WEISS 


En 


RETURNADRESSE 
AUF STACK LEGEN 
EINMAL ZUM INITIALISIEREN LESEN 


.—-— 5 Ya 


ı UND DAS ’EAR’-BIT MERKEN 
; BORDER COLDUR ROT 

; RETTEN ($22 = AUS, $02 = 
; UM RET NZ ZU üBERSPRINGEN 


EIN) 


EXIT BEI BREAK 
CARRY GELÖSCHT: KEINE FLANKE 
GEFUNDEN ODER BREAK GEDRÜCKT 


; WARTESCHLEIFE ETWA 1 SEKUNDE 


; NOCH MAL AUF 2 
; FALLS NICHT: 


FLANKEN WARTEN 
ERROR 


AKTZEPTIEREN 


ZEITKONSTANTE 

ZWEI FLANKEN ERWARTEN 
FALLS NICHT: ERROR 
MAXIMALER ZEITABSTAND 
CIRCA 3000 T ZYKLEN 

; SDNST NOCH MAL SUCHEN 

; 256 DOPPELFLANKEN ABWARTEN 


-—.—— WE en 


JETZT WIRD EIN SYNCHRONIMPULS ERWARTET 


; ZEITKONSTANTE 
; ZWEI KURZ AUFEINANDERFOLGENDE 
; FLANKEN BILDEN DEN SYNC-IMPULS 


; ABFALLENDE 5SYNC-FLANKE 
; MUSS EXISTIEREN 


} 
; DIE BYTES KöNNEN GELADEN ODER VERIFIZIERT WERDEN 


LD A,C 
XOR 3 
LD C,A 
LD H,0 
LD B,$BO 


; BORDER COLOURS AUF BLAU 
; BZW. GELB SCHALTEN 


; FüR "PARITY"-PRÜFUNG 
; ZEITKONSTANTE FüR 'FLAG'-BYTE 


0547 
0549 
05A9 
OS5AA 
OSAC 
OSAE 
O5Bi 
05B3 
05B5 
05B& 
05B7 
05B7 
05B8 
05B9 
05BA 
0O5BB 
OSBD 
OSBD 
05C0 
05C1 
05C2 
05C2 
05C4 
05C5 
05C4 
05C8 
05CA 
OSCA 
0OSCD 
ÖSCE 
05DO 
OSDi 
05D3 
05D5 
05D8 
05D8 
05D9 
05DA 
OSDB 
OSDE 
OSDD 
OSDF 
O5EO 
OSE2 
05E3 
0O5E3 
05E3 
0SE3 
05E3 
0OSES 
05E3 
05E3 
DSE& 
05E7 
OSE7 
05E9 
O5EA 
DSEC 


07 


FE 


CA 


01 


E7 


16 


FD 


00 


00 


05 


05 


05 


LOAFLE 


; 
VERIFY 


; 
LADWEI 


; 
BITHOL 


LANK2 


; 
FLANKI 


JR +#5C8 


EX AF,AF 

JR NZ,$5B3 
JR NC,VERIFY 
LD (IX+0),L 
JR LADWEI 
RLC 

XOR L 

RET NZ 


LD A,C 
RRA 

LD C,A 
INC DE 
JR $504 


LD A,(IX+0) 
XOR L 
RET NZ 


INC IX 
DEC DE _ 
EX AF,AF 
LD B,$B2 
LD L,1 


CALL FLANK2 
RET NC 

LD A,$CB 

CP B 

RLL 

LD B,$BO 

JP NC,BITHOL 


CALL FLANKI 
RET NC 


LD A,$14 


WARTLD DEC A 


JR NZ,WARTLD 
AND A 


-—-—_ ME an A un 


FLAGS ZURÜCKHOLEN 

NUR BEI FLAGPRÜFUNG (1. BYTE) 
GELADENES BYTE SPEICHERN 

UND DAS NÄCHSTE LADEN 

RETTE CARRY 
ERSTES BYTE = 
NEIN ERROR 


TYP-FLAG ? 


SONST CARRY WIEDERHOLEN 


DIESES INKREMENT WIRD UNTEN 
WIEDER RüCKGAÄNGIG GEMACHT 


BEI VERIFY ORIGINALBYTE 
HOLEN UND VERGLEICHEN 
VERIFY-ERROR (CARRY GELÖSCHT) 


ADRESSE FüR LOAD/VERIFY ERHÖHEN 
ZÄHLER -1 

FLAGS RETTEN 

ZEITKONSTANTE LADEN 

ENDEKENNUNG BEIM 9. SCHIEBEN 


LÄNGE DER PULSE HOLEN 
ZEITUBERSCHREITUNG 
ZEITVERGLEICH, UM DARAUS 

EINE '0° ODER '1' IM CARRY ZU 
GEWINNEN UND IN L ZU SCHIEBEN 
ZEITKONSTANTE NÄCHSTES BIT 
BYTE NOCH NICHT KOMPLETT 


ERROR MIT CARRY GELÖSCHT 


LD A,H ; "PARITY" HOLEN 
XOR L ; UND NÄCHSTES BILDEN 
LD H,A ; NEUES "PARITY" NACH H 
LD A,D 
OR E 
JR NZ,$5A9 ; ENDE NOCH NICHT ERREICHT 
LD A,H ; LETZTES "PARITY"-BYTE MUSS 
cp i ; NULL SEIN: CARRY GESETZT 
RET » SONST CARRY GELÖSCHT: ERROR 
’ 
; DIESES UNTERPROGRAMM ERFASST PEGELWECHSEL (FLANKE) 
; AM KASSETTENREKORDER-EINGANG. REG B DIENT ALS 
; ZEITZÄHLER. INNERHALB DIESER FESTGELEGTEN ZEIT 
; MÜSSEN DIE GEFORDERTEN FLANKEN AUFTRETEN, SONST 
' 
F 


AUF ZWEI FLANKEN PRÜFEN 
RETURN BEI ERROR 


EINE FLANKE PRÜFEN 
ETWAS WARTEN 


CARRY LÖSCHEN 
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OÖSED 
OSEE 
OSEF 
OSEF 
OSFi 
OSF3 
OSF4 
ÖSFS 
OSFS 
OSF& 
OSF8 
OSFA 
OSFA 
OSFA 
OSFA 
OSFB 
ÖSFC 
OSFD 
ÖSFF 
DAül 
0603 
0604 
0605 
D&05 
0805 
0505 
0505 
060& 
0509 
D&ÖOB 
OADE 
Ö6&ll 
0614 
0616 
0519 
0&s1c 
Os1D 
O&siF 
0621 
0622 
0623 
0625 
0627 
0629 
0A2A 
O&2B 
062D 
052D 
0631 
0534 
0637 
0538 
0539 
D65A 
053C 
OA5F 
0540 
0642 
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SE ZF 
FE 


07 
08 
; 'FE 


22 


01 
2B 
FF 


Sc 


FF 


FLANKE 


INC B 
RET Z 


LD A,$7F 
IN A,($FE) 
RRA 

RET NC 


XOR GC 
AND #20 
JR Z,FLANKE 


; 


ZEITZÄHLER ERHÖHEN 
ZEITENDE: CARRY + ZERD GESETZT 


BREAKTASTE UND 
BREAK GEDRÜCKT: 
CARRY GELÖSCHT UND NICHT ZERO 


"EAR' 


IST EINE FLANKE AUFGETRETEN ? 


NEIN: WEITER WARTEN 


; INNERHALB DER ERLAUBTEN ZEIT WURDE EINE FLANKE ERKANNT 


: 
ı EINSPRUNG BEI 


LD A,C 
CPL 

LD C5A 

AND 7 

OR 8 

OUT ($FE),A 
SCF 

RET 


LOAD’, 


; 


IN C FLANKENART MERKEN 


BORDER COLOUR AUSBLENDEN 
"MIC’ AUS 


CARRY SETZEN: DK 


"SAVE’„ 'VERIFY’ UND ’MERGE’ 


; UNTERSCHEIDUNG DER BEFEHLE GESCHIEHT MITTELS "TADDR' 


} 
KASHAU 


KASPAC 


ELRNAM 


POP AF 
LD A,(TADDR) 
SUB $EO 

LD (TADDR),A 
CALL $1CEC 
CALL $2530 
JR 7,$652 

LD BC,17 

LD A,(TADDR) 
AND A 

JR 2,$621 

LEBE S4 

RST $30 

PUSH DE 

POP IX 

LD B,11 

LD A,#' 

LD (DE),A 
INC DE 

DINZ $0629 


LD 
CALL $2BFi 
LD HL,$FFF& 
DEC BC 

ADD HL,BC 
INC BC 

JR NC,$64B 
LD A,(TADDR) 
AND A 

JR NZ,NAMOK 


(IX+1) ,255 


—— u EEE a 


RETURNADRESSE VERNICHTEN 

$E0 ABZIEHEN, UM O0 FÜR SAVE, 

i FÜR LOAD, 2 FüR VERIFY 

UND 3 FüR MERGE ZU ERHALTEN 
NAMENSPARAMETER IN CALC.-STACK 
SYNTAXPRÜFUNG ? 

SPRUNG, FALLS NUR SYNTAXPRÜFUNG 
LÄNGE DES NAMENS: 17 


BEI SAVE 

SONST LÄNGE 34 
SPEICHER RESERVIEREN 
STARTADRESSE IN IX 
BRINGEN 


FILENAME LÖSCHEN 


ZEIGT 'KEIN NAME’ AN 
NAMENSFARAMETER HOLEN 
-10 LADEN 

LÄNGE AUF 10 PRÜFEN 


<= 10 
FALLS NICHT SAVE: 


MEHR ZULASSEN 


0642 
0643 
0644 
0644 
0645 
0645 
0648 
064B 
0654D 
Od4E 
OA4F 
0650 
0652 
0652 
0653 
0855 
0657 
Nasa 
065C 
O&SF 
0660 
0643 
0655 
0667 
Ob&A 
übäD 
O&&E 
0570 
0670 
0671 
0672 
0672 
0675 
0678 
067A 
067B 
067C 
O&7F 
0580 
06B1 
0684 
0685 
0688 
DEBA 
DdBt 
O6BE 
OABF 
0592 
0695 
0694 
0695 
0698 
0699 
DsSC 
069D 
0&AO 
DEAD 
06A2 


AA 
ıF 


Sc 


ic 


28 


00 
Sc 


ic 


25 


OB 


dc 


DE 


00 


IB 


07 


NAMERR RST ERRAUS 


; 
NAMDK 


. 


«BYT $0E 


LD A,B 
OR C 

JR 2,$652 
LD BC,10 
PUSH IX 
POP HL 
INC HL 

EX DE,HL 
LDIR 


RST GBETAKT 
CP $E4 

IR NZ,$6A0 
Lb A,(TADDR) 
CP 3 

JP 2,$1C8A 
RST GETNXT 
CALL $28B2 
SET 7,C 

IR NC,$672 
LD HL,O 

LD A,(TADDR) 
DEC A 

JR 2,$685 


RST ERRAUS 
.BYT $01 


IP NZ,*1CBA 
CALL $2530 
JR 2,$692 
INC HL 

LD A,CHL) 

LD (IX+$B),A 
INC HL 

LD A, (HL) 

LD (IX+$C),A 
INC HL 

LD (IX+$E),C 
LD A,1 

BIT d,C 

JR 2Z,$68F 
INC A 

LD (IX+0),A 
EX DE,HL 

RST BETNKXT 
CP)’ 

JR NZ,$672 
RST GETNXT 
CALL $1BEE 
EX DE,HL 

JP $75A 


EP $AA 
JR NZ,$603 


—— EEE un NEE m 


-.—— 01 u ee 


-—.— a ME u NE a 


FEHLERMELDUNG: 
"INVALID FILE NAME’ 


DHNE NAMENSANGABE 

NAME AUF 10 ZEICHEN BEGRENZEN 
ADRESSE DES NAMENS 

INS HL REG 

UND EINS ERHÖHEN 
POINTERTAUSCH 

DEN NAMEN UMSPEICHERN 


NÄCHSTES ZEICHEN IM INPUT LESEN 
TOKEN 'DATA’ ? 

NEIN 

AUF MERGE PRÜFEN 


"MERGE’ MIT 'DATA’:; ERROR 
NOCH EIN ZEICHEN HOLEN 

IN VARIABLENTABELLE SUCHEN 
BIT 7 DES ARRAYNAMENS SETZEN 
BEI EINEM VORHANDENEN ARRAY 
SONST NEUES ARRAY 


NUR 'LOAD’ ZUGELASSEN 
SONST ERROR: 
"VARIABLE NOT FOUND’ 


BEI SYNTAXPRÜFUNG 
SPRUNG 
SONST LÄNGENBYTE LOW 


UND HIGH IN DEN 
WORKSPACE 
UMSPEICHERN 


ARRAYNAME EBENFALLS SPEICHERN 
DEFAULT: ZAHLENARRAY 


SPRUNG, WENN RICHTIG 

SONST BUCHSTABENARRAY 

IM ERSTEN HEADERBYTE MERKEN 
HL RETTEN 

EIN ZEICHEN HOLEN UND 

AUF KLAMMER PRÜFEN 

WENN NICHT: ERROR C 
CHADD+1, NÄCHSTES ZEICHEN 
AUSSPRUNG BEI SYNTAXPRÜFUNG 
HL ZURÜCKHOLEN 

UND WEITER 


IST TOKEN = 'SCREEN$' ? 
SPRUNG, WENN NICHT 
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06A4 
06A7 
0649 
DBAC 
O6AD 
O&BO 
0&B4 
Ü&BB 
O&BB 
O6BE 
O6C1 
0663 
06C3 
0665 
0667 
06CA 
DEM 
O&CF 
06D0 
06D3 
06D5 
Ö&DB 
05D9 
D&DE 
D&DF 
O&EI 
OGEl 
OGEL 
ObdEI 
O6E4 
DAES 
OBE7 
06E9 
O6EL 
O6ED 
O&FO 
O6F3 
D6FS 
O6F5 
0O6F&6 
OAF9 
ND&F? 
O6Ft 
O6FC 
OöFF 
0702 
0705 
0708 
070B 
O7OE 
D7OF 
0710 
0714 
0714 
0716 
0718 
071A 
071D 


ai 


00 053 


DE 89 


. 
’ 
” 
’ 
" 
’ 


LD A,(TADDR) 
CP 3 

JP Z,$1CBA 
RST GETNXT 
CALL $1BEE 
LD (IX+$B),0 
LD (IX+$C),$1B 
LD HL,$4000 
LD (IX+$D) ,L 
LD (IX+$E) ,H 
JR $710 


CP $AF 

JR NZ,$71& 
LD A,(TADDR) 
CP 3 

IP Z,$1C8A 
RST GETNXT 
CALL $2048 
IR NZ,$6E1 
LD A,(TADDR) 
AND A 

JP Z,$1C8A 
CALL $iCE& 
JR $6F0 


STARTADRESSE SUCHEN 


CALL $1C82 
RST GETAKT 


LD A,(TADDR) 
AND A 

JP Z,$1CBA 
CALL $ICE& 
JR $6F9 


RST GETNXT 
CALL $1CB2 


CALL $1BEE 


CALL $1E99 
LD (IX+$B),C 
LD (IX+$C) ,B 
CALL $1E99 
LD (IX+$D),C 
LD (IX+$E),B 
LD H,B 

19 6 

LD (IX+0),3 
IR $75A 


CP $CA 

JR 1,$723 

CALL $1BEE 

LD (IX+$E) ,$B0 


a EEE u TE a a NEE a NEE a EEE a TE a a ae NEE a TEE a NEE Kan 


EEE a EEE u NEE a TEE u 


BEI MERGE IST ’SCREEN$’ ALS 
NAME NICHT ZUGELASSEN 

EIN ZEICHEN HOLEN 

AUSSPRUNG BEI SYNTAXPRÜFUNG 
LÄNGE DES DISPLAY- UND 
ATTRIBUTBEREICHS IST $1Böö 
UND DIE STARTADRESSE 

IST $4000 


IST TOKEN = 'CODE' ? 
WENN NICHT 
BEI MERGE IST 'CODE’ 


NICHT ZUGELASSEN 

EIN ZEICHEN HOLEN 
PRÜFEN, OB EINGABEENDE 
NEIN 

BEI SAVE IST ’CODE’ 


NICHT ZUGELASSEN 
EINE NULL AUF DEN CALCULATOR- 
STACK SCHREIBEN FÜR "START' 


DIE ERSTE ZAHL HOLEN 

EIN ZEICHEN HOLEN UND AUF 
KOMMA PRÜFEN 

JA, ZAHL WAR STARTADRESSE 
ERROR, FALLS BEI 

"SAVE’ NUR DIE STARTADRESSE 
UND KEINE LÄNGE ANGEGEBEN 

NULL ALS LÄNGE AUF CALCULATOR- 
STACK SCHREIBEN 


EIN ZEICHEN UND 
DIE LÄNGE HOLEN 


WEITER ZUM NÄCHSTEN BEFEHL, 
FALLS SYNTAXPRÜFUNG 

LÄNGE INS BC REGISTER BRINGEN 
UND IM HEADER 

SPEICHERN 

EBENSO MIT DER 

STARTADRESSE 

VERFAHREN 

STARTADRESSE ALS POINTER 

INS HL REGISTER 

TYP '3’ FüR SCREEN$ UND CODE 


IST TOKEN = 'LINE’ ? 

JA 

NÄCHSTER BEFEHL BEI SYNTAXPR. 
FALLS KEINE WEITEREN PARAMETER 


0721 
0723 
0723 
0726 
0727 
072A 
072B 
072E 
0731 
0734 
0737 
073A 
073E 
073E 
073E 
0741 
0745 
0746 
0748 
074B 
O74E 
0751 
0753 
0756 
0759 
075A 
075A 
075A 
075A 
075A 
075A 
075A 
075A 
075D 
075E 
0751 
0761 
0762 
0765 
0767 
0769 
076C 
076D 
O7bE 
0771 
0773 
0775 
0775 
0777 
077A 
O7TE 
0780 
0783 


0786 . 


0788 
D78A 
078C 
07BE 


sc 


09 


00 


00 


05 


16 
32 


00 
EF 


00 


Sc 


03 


-—-—_ WM a EEE an 


JR $73A 


LD A,(TADDR) 
AND A 

JP NZ,$1C8A 
RST GETNXT 
CALL $1C82 
CALL $1BEE 
CALL $1E99 
LD (IX+$D) ,C 
LD (IX+$E) ,B 
LD (1X+0),0 


LD HL,(ELINE) 
LD DE, (PROB) 

SCF 

SBC HL,DE 

LD (IX+$B) ‚L 

LD (IX+$C) ,H 

LD HL, (VARS) 

SBC HL,DE 

LD CIX+$F),L 

LD (IX+$10) ,H 
EX DE,HL 


—.— EEE NE 


.. -— WM un TEE an 


PRÜFEN, OB 'SAVE’, DENN EINE 
ZEILENNUMMER MUSS FOLGEN 
NICHT 'SAVE’ 

EIN ZEICHEN HOLEN 
ZEILENNUMMER AUF CALC-STACK 
BEI SYNTAXPRÜFUNG EXIT 

SONST ZEILENNUMMER IN BC 
BRINGEN UND 

ABSPEICHERN 

"LINE’ UND 'OHNE WEITERE AN- 
GABEN’ SIND VOM TYP '0' 


ZEIGER AUF VARIABLENENDE 
ZEIGER AUF BASICPROGRAMMANFANG 


LÄNGE VON PROGRAMM UND 
VARIABLEN AUSRECHNEN UND 
ABSPEICHERN 

NUR DIE PROGRAMMLÄNGE 
BERECHENEN UND 
ABSPEICHERN 


PROGRAMMANFANG NACH HL 


DER HEADER IST NUN FERTIG: 

IX+ 0: TYP 

IX+ 1 BIS +10: NAME ODER IX+1=$FF, WENN KEIN NAME 
IX+11/12: LÄNGE 

IX+13 BIS IX+16: VERSCHIEDENE ANGABEN 


LD A, (TADDR) » PRÜFEN, OB 'SAVE' 

AND A 

JP 17,$970 JA 

PUSH HL ; POINTER FÜR ’LOAD' ETC. RETTEN 

LD BC,17 ; IN IX DIE ADRESSE DES 

ADD IX,BE ; ZWEITER HEADERS BILDEN 

PUSH IX ; UND ZWISCHENSPEICHERN 

LD DE,17 ; 17 BYTES LADEN 

XOR A ; "HEADER’ ANMERKEN 

SCF ; LOAD’ ANMERKEN 

CALL $556 ; HEADER LADEN 

POP IX ; ZWEITE HEADERADRESSE ZURÜCK 

IR NC,$767 ; UND IN DER SCHLEIFE BLEIBEN, 
; BIS HEADER GEFUNDEN 

LD A,$FE ; KANAL S ÖFFNEN 

CALL $1601 

LD (IY+$52),3  ; SCROLLING-ZÄHLER SETZEN 

LD C,$80 ; DEFAULT FüR HEADER FALSCH 
3 


LD A,(IX+0) 
CP (IX+$EF) 


DIE BEIDEN HEADER VERGLEICHEN 


JR NZ,#78A ; WAR NOCH NICHT RICHTIG 

LD C,$F& ; ES MÜSSEN 10 ZEICHEN STIMMEN 
CP 4 ; TYP > 4 IST UNSINN 

JR NC,#767 ; NOCH MAL HEADER LADEN 
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0O7BE 
0791 
0792 
0795 
0796 
0798 
0799 
079C 
079D 
Nn79F 
07A0O 
07A1 
07A3 
07A4 
0745 
07A& 
07A& 
07A7 
07AB 
07A9 
O7AA 
D7AC 
O7AD 
D7AE 
07B0O 
07B2 
07B4 
07B4 
07B4 
07RB4 
07B4 
07B& 
07B7 
07E3 
Ö7BB 
07ED 
O7BF 
07C2 
07C3 
07C& 
07C8 
07CB 
07CB 
07CB 
07CB 
07CC 
O7CF 
07D2 
07D5 
07D8 
07D9 
07DA 
07DC 
O7DE 
07EO 
O7EO 
07E2 
07ES 
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co 


DA 


09 


oc 


FF 


DO 


00 


. 
’ 


“ 
’ 
; 


LD DE,$9C0 
PUSH BC 
CALL $COA 
POP BC 
PUSH IX 
POP DE 

LD HL,$FFFO 
ADD HL,DE 
LD B,10 

LD A, (HL) 
INC A 

JR NZ,$7A6 
LD A,C 

ADD B 

LD C,A 


INC DE 

LD A,(DE) 
CP (HL) 
INC HL 

JR NZ,$7AD 
INC C 

RST PRTOUT 
DINZ $£7A& 
BIT 748 

JR NZ,$767 


WEITER NUR, WENN DER 


LD A,$D 

RST PRTOUT 
POP HL 

LD A,(IX+0) 
CP 3 

JR 2,$7CB 
LD A,(TADDR) 
DEC A 

JP 2,$808 
CP 2 

JP 7,$8B& 


’ 
VERIFY-ROUTINE 


PUSH HL 

LD L,(IX+$FA) 
LD H,(IX+$FB) 
LD E,(IX+$B) 
LD D,(IX+$C) 
LD A,H 

OR L 

JR 1,$7E9 
SBC HL,DE 

JR C,$B06 


JR 12,$7E9 
LD A,(IX+0) 
CP 3 


-—.— || En 


[3 
’ 
” 
‚ 
» 
’ 
“ 
} 
” 
’ 
[4 
3 
} 


BASISADRESSE DER MELDUNGEN 
BC ZWISCHENSPEICHERN 

DEN TYP AUF SCHIRM AUSGEBEN 
BC WIEDER HOLEN 

DE AUF DEN GELADENEN HEADER 
ZEIGEN LASSEN 

HL AUF DEN ERSTEN HEADER 
ZEIGEN LASSEN 

10 ZEICHEN PRÜFEN 


WAR EIN NAME ANGEGEBEN ? 
JA 

FALLS NICHT, STIMMT 

DER NAME IMMER! 

($F& + $0A = 0) 


ERSTES ZEICHEN VERGLEICHEN 
UND AUF SCHIRM AUSGEBEN 


HEADER STIMMEN NICHT 
SONST ZÄHLER +1 
AUSGABE, BIS 

B AUF NULL GEZÄHLT 


WENN HEADER STIMMT, ISTC 


POSITIV, SONST NOCH MAL HEADER 


HOLEN 


RICHTIGE HEADER GEFUNDEN WURDE 


ee TEE ae 


—— ME a BE a a BE ae 


EIN CARRIAGE RETURN 
AUSBEBEN 

POINTER ZURÜCK 
"SCREEN$’ DDER 
"CODE' 

JA 

'LOAD’-BEFEHL ? 


JA 
"MERGE’-BEFEHL 
JA 


POINTER RETTEN 

LÄNGE IN HL 

LADEN 

LÄNGE DES GELADENEN 

HEADERS HOLEN 

WAR LÄNGENANGABE 

DER EINGABE NULL ? 

JA 

FALLS NEUE LÄNGE GROSSER ALS 
ALTE, DANN ERROR 


GLEICHE LÄNGE IST IN ORDNUNG 
BEI VERIFY MüSSEN DIE LANGEN 
ÜBEREINSTIMMEN 


07E7 
07E9 
07E9 
D7EA 
0O7EB 
O7EC 
O7EE 
O7FI 
D7F4 
0O7FS 
07F7 
O7FA 
O7FEC 
O7FD 
O7FF 
0800 
0802 
0802 
0802 
0802 
0802 
0802 
0802 
0802 
0805 
0806 
0805 
0807 
0808 
0B0B 
0808 
0808 
DBOB 
OBOE 
OBOF 
0810 
0811 
0813 
0814 
0815 
0816 
0817 
0819 
0819 
081C 
OBirF 
0820 
0821 
0823 
0825 
0825 
0828 
0829 
OB2A 
082B 
OB2ZE 
OB2E 
0O82F 


36 


JE 
36 


06 


öCc 


6E 


66 


32 


09 


05 


05 


7E 


oD 


Sc 


05 


OB 
oc 


FA 
FB 


00 


IF 


00 


uU 3 EEE aa WE 


JR NZ,#806 


POP HL 

LD A,H 

OR L 

IR NZ,$7F4 
LD L,(IX+$D) 
LD H,(IX+$E) 
PUSH HL 

POP IX 

LD A,(TADDR) 
CP 2 

SCF 

JR NZ,$800 
AND A 

LD A,$FF 
„END 


‚„LIB SPECOBOO-S 
SINCLAIR ZX SPECTRUM TEIL 0800 


CALL #556 
RETC 


RST ERRAUS 
.BYT 1A 


"LOAD’-BEFEHLROUTINE 


LD E,(IX+$B) 
LD D,(IX+$0) 
PUSH HL 

LD A,H 

OR L 

JR NZ,$B19 
INC DE 

INC DE 

INC DE 

EX DE,HL 

JR $825 


LD L,(IX+$FA) 
LD H,(IX+$FB) 
EX DE,HL 

SCF 

SBC HL,DE 

JR C,$82E 


LD DE,5 
ADD HL,DE 
LD B,H 

ED Cs 
CALL $1F05 


POP HL 
LD A,(IX+0) 


-— ME a NEE ae BE ae EEE a 


NEE a NEE a 


—-—— EEE u TEE a 


SONST ERROR 


STARTFOINTER HOLEN UND 
AUF NULL PRÜFEN 


WENN START = O, DANN WIRD 

DER STARTPODINTER DES GELADENEN 
HEADERS BENUTZT 

STARTPOINTER NACH IX 


"LOAD’ ODER 'VERIFY’ UNTER- 
SCHEIDEN 

CARRY GESETZT = 'LOAD' 
"LOAD’ 

CARRY GELSSECHT: 'VERIFY' 


DATENBYTES ANMERKEN 


SUBROUTINAUFRUF FÜR ALLE LADEVORGÄNGE, EGAL OB LOAD 
VERIFY ODER MERGE 


RETURN, FALLS KEIN FEHLER 


MELDUNG: 
"TAPE LOADING ERROR’ 


LÄNGE AUS DEM GELADENEN 
HEADER HOLEN 

ZIELPOINTER RETTEN 

HL IST FÜR EIN NOCH NICHT 
DEKLARIERTES ARRAY = 0 
TRIFFT NICHT ZU 

DE +3 FÜR NAME UND LÄNGE 


LÄNGE DES VORHANDENEN 
PROGRAMMS MIT VARIABLEN 
PRÜFEN, OB 

ZUSÄTZLICHER SPEICHERPLATZ 
BENOTIGT WIRD 

NEIN 


3 BYTES MEHR 
IN BC BRINGEN UND 
SPEICHERPLATZTEST DURCHFÜHREN 


STARTADRESSE HOLEN 
PRÜFEN, OB EIN 
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0832 
0833 
0835 
0835 
0837 
0839 
083A 
083B 
O83C 
083D 
083E 
08B3F 
0840 
0841 
0845 
0B4B 
O84C 
O84C 
OB4AF 
0850 
0853 
0855 
0857 
0858 
0859 
085A 
085D 
O8SE 
0861 
0842 
0853 
08464 
0855 
0866 
0867 
0858 
0859 
DBAA 
DB6A 
OB&B 
OB&D 
OB6E 
0870 
0873 
0873 
0873 
0873 
0874 
2877 
0878 
087C 
08B7F 
0882 
0883 
08865 
0887 
0888 
0889 
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3E 


13 


TE 


39 


El 


ES 


39 


208 


SC 


” 
) 


AND A 
JR 7,$873 

LD A,H 

OR L 

JR 7,$84C 
DEC HL 

LD B,(HL) 
DEC HL 

EB /CHL) 
DEC HL 

INC BC 

INC BC 

INC BC 

LD (XPTR),IX 
CALL RAUS2 
LD IX, (XPTR) 


LD HL,(ELINE) 
DEC HL 

LD C,(IX+$B) 
LD B,(IX+$0) 
PUSH BC 

INC BC 

INC BC 

INC BC 

LD A,(IX+$FD) 
PUSH AF 

CALL $1455 
INC HL 

POP AF 

LD (HL),A 
POP DE 

INC HL 

LD (HLI,E 

INC HL 

LD CHL),D 

INC HL 


PUSH HL 
POP IX 
SCF 

LD A,$FF 
IP $802 


EX DE,HL 

LD HL,(ELINE) 
DEC HL 

LD (XPTR),IX 
LD C,(IX+$B) 
LD B,(IX+$0) 
PUSH BC 

CALL RAUS 
POP BC 

PUSH HL 

PUSH BC 

CALL $1455 


a an -. 


-— "8 10m 


.-— (EEE a TEE an am 


Er TEE ae TEE a EEE a NEE ae TEE u TE 


u (BE 1 (BE am 


. 
; 
} 


— EEE ae TEE u BE [un "BE nn 


BASICPROGRAMM GELADEN WIRD 
JA 


NEUES ARRAY ? 

JA 

SONST LÄNGE DES BEREITS 
EXISTENTEN ARRAYS HOLEN 


HL ZEIGT AUF ALTEN NAMEN 
LÄNGE +3 FüR NAMEN 
UND LÄNGE 


IX ZWISCHENSPEICHERN 
ALTES ARRAY WEGWERFEN 
IX WIEDER HOLEN 


HL AUF ENDEMARKIERUNG 
DER VARIABLEN SETZEN 
LÄNGE DES NEUEN 
ARRAYS IN BC UND 
ZWISCHENSPEICHERN 

BC + 3 FÜR NAME UND LÄNGE 


(#80) 


NAME AUS ALTEM HEADER FüR DAS 
NEUE ARRAY HOLEN UND RETTEN 
"BC" SPEICHERPLAÄTZE BESCHAFFEN 
DEN NAMEN 

DES ARRAYS 

EINSCHREIBEN 

LÄNGE EBENFALLS 

HOLEN UND 


EINSCHREIBEN 

HL ZEIGT AUF DEN ERSTEN FLATZ, 
DER VDM BAND GELADEN WIRD 
STARTADRESSE NACH 

IX BRINGEN 

“LOAD” UND 

DATEN ANMERKEN 

ZUR LABERDOUTINE 


LADEN EINES BASICPROGRAMMS MIT VARIABLEN 


ZIELADRESSE ZWISCHENSPEICHERN 
VARIABLENENDE SUCHEN 


ZWISCHENSPEICHERN 
LÄNGE DES NEUEN 

HEADERS HOLEN, 
ZWISCHENSPEICHERN UND DAS 
DERZEITIGE PROGRAMM WEGWERFEN 
LÄNGE WIEDER HOLEN 

ZEIGER AUF START UND 

DIE LÄNGE ZWISCHENSPEICHERN 
BC SPEICHERFLÄTZE FREIMACHEN 


80 


Ei 


FF 
02 


SB 


3) 
19 


02 


08 


B& 


08 


OB 
oc 


19 


00 


” 
’ 


LD IX,(XPTR) 
INC HL 
LD C,(IX+$F) 


LD B,(IX+$10) 


ADD HL,BC 

LD (VARS) ‚HL 
LD H,(IX+$E) 
LD A,H 

AND $CO 

JR NZ,$BAD 
LD L,(IX+$D) 


LD (NEWPFEC) ,HL 


LD (IY+$A),O 


POP DE 
POP IX 
SCF 

LD A,$FF 
JP #802 


; 
MERGE-ROUTINE 


LD C,(IX+$B) 
LD B,(IX+$0) 
PUSH BC 

INC BC 

RST $30 

LD (HL) ,$80 
EX DE,HL 

POP "DE 

PUSH HL 
PUSH HL 

POP IX 

SCF 

LD A,$FF 
CALL $802 
POP HL 

LD DE, (PROG) 


LD A,CHL) 
AND $CO 
JR NZ,$BFO 


LD A,(DE) 
INC DE 
CP (HL) 
INC HL 

JR NZ,$BDF 
LD A,(DE) 
CP (HL) 
DEC DE 

DEC HL 

JR NC,$*BEB 
PUSH HL 

EX DE,HL 
CALL $19B8 


. 


.—..: “= an WE an 


IX WIEDER HOLEN 
VARIABLE VARS 
MUSS NEU 


GESETZT WERDEN 
ZEILENNUMMER ANGEGEBEN ? 


NEIN 
SONST NEWPPC UND 


NSPPC NEU SETZEN 


LÄNGE UND 
STARTADRESSE HOLEN 
"LOAD’ UND 

DATEN ANMERKEN 

ZUR LADEROUTINE 


LÄNGE DES 

DATENBLOCKS HOLEN 

UND ZWISCHENSPEICHERN 
LÄNGE +1 UND BC SPEICHERFLÄTZE 
IM WORKSFPACE BESCHAFFEN 
EINE ENDMARKIERUNG SETZEN 
STARTADRESSE NACH HL 
LÄNGE NACH DE 

START ZWISCHENSPEICHERN 
UND ZUSÄTZLICH NACH 

IX BRINGEN 

LADEN UND 

DATEN ANMERKEN 
LADERDUTINE AUFRUFEN 
START NEU ZURÜCK IN HL 

DE ZEIGT AUF START ALT 


DIE NEUEN ZEILEN WERDEN IN DAS ALTE PROGRAMM EINGEFÜGT 


PRÜFEN, OB 
FERTIG 
JA 


ZEILENNUMMER HIGH VERGLEICHEN 
UND BEIDE POINTER +1 


NICHT GLEICH 
ZEILENNUMER LOW VERGLEICHEN 


BEIDE POINTER WIEDER 

DRIGINAL 

PLATZ FüR NEUE ZEILE GEFUNDEN 
SONST START DER NÄCHSTEN 
ZEILE SUCHEN 
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OBEB 
DBE9I 
OBER 
OBEB 
OBEE 
OBFO 
OBFO 
OBFO 
OBFO 
O8FI 
OBF2 
QDBF4 
OBFS 
OBFS5 
OBF& 
OBF9 
OBFA 
OBFE 
DBFE 
OBFF 
0901 
0902 
5905 
0905 
0907 
0909 
0909 
OFOB 
09OD 
QD9ÖF 
0910 
0911 
0912 
0912 
0913 
0914 
0915 
0916 
0918 
0919 
O91B 
O9iC 
OP1E 
O91E 
O9IF 
0921 
0921 
0923 
0923 
0924 
0925 
0926 
0927 
DIZA 
092C 
092C 
092C 
092C 
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EC 


2C 
E2 


80 


06 


Et 


EO 


FF 


2C 


09 


Sc 


09 


3 


a. | | an Sam 


POR" AL 
JR $8D7 


CALL $92C 
JR #8D2 


LD A,(HL) 
LD C,A 
CP $80 
RET Z 


PUSH HL 


LD HL, (VARS) 


LD A,(HL) 
CP $BO 

JR 2,$923 
CP C 

JR 7,8909 
PUSH BC 
CALL $19B8 
POP BC 

EX DE,HL 
JR $8F9 


AND $EO 
CP $A0 
JR NZ,$921 
POP DE 
PUSH DE 
PUSH HL 


INC HL 

INC DE 

LD A,(DE) 
CP HL) 

JR NZ,$91E 
RLA 

JR NC,#912 
FOP HL 

JR #921 


POP HL 
JR #901 


LD A,$FF 


POF DE 

EX DE,HL 
INC A 

SCF 

CALL $92C 
JR #BFO 


"MERGE' 


’ 


« 
’ 
« 
’ 


AB HIER NEUE VARIABLEN 


—.— EEE 


|... | NEE a 


On ee 


.-— | EEE 


IM ALTEN PROGRAMM WEITERSUCHEN 


NEUE ZEILE EINFÜGEN 
UND WEITER SUCHEN 


EINFÜGEN 
VARIABLENNAME HOLEN 


FERTIG ? 
JA 


AKTUELLEN NEUEN POINTER RETTEN 
ALTEN POINTER HOLEN 
VARIABLENAME UND 

-ENDE PRÜFEN 

ENDE EREICHT 

STIMMT NAME ? 

JA 

VARIABLENNAME RETTEN 

NÄCHSTE ALTE VARIABLE SUCHEN 
NAME ZURÜCKHDLEN 

POINTER WIEDER RICHTIG 

UND WEITERSUCHEN 


LANGER VARIABLENNAME ? 


NEIN 

DE ZEIGT AUF DEN ERSTEN BUCH- 
STABEN DES NEUEN NAMENS 

RETTE POINTER AUF ALTEN NAMEN 


FOINTER +1, DA DAS ERSTE 
BYTE SCHON GEPRÜFT WURDE 
DEN REST DES NAMENS 
VERGLEICHEN 

NICHT SEFUNDEN 

LETZTES ZEICHEN ? 

NEIN 

ADRESSE DES ALTEN NAMENS 
UND ERSETZEN 


WEITERSUCHEN 


ANMERKEN: VARIABLE ERSETZEN 

A = #80: VARIABLE HINZUFÜGEN 
ADRESSE 'NEU’ HOLEN 

POINTER RICHTIG SETZEN 
ZERDOFLAG FÜR ERSETZEN = 1 
ANMERKEN: VARIABLENBEHANDLUNG 
UND DIE VARIABLE EINTRAGEN 
NÄCHSTE VARIABLE UNTERSUCHEN 


SUBROUTINE ZUM EINFÜGEN EINER ZEILE ODER VARIABLEN 


092C 
O9ZE 
O92F 
0932 
0933 
0936 
0939 
DIZA 
095D 
O93E 
DIZF 
0940 
0943 
0943 
0946 
0949 
OI4A 
O9AB 
O94C 
DIA4E 
O94F 
0952 
0953 
0955 
0955 
0958 
0959 
DISA 
095B 
D9I5F 
0963 
0964 
0965 
0966 
0968 
0969 
OFEA 
096BR 
O9GBE 
OFF 
0970 
2970 
0970 
0970 
0971 
0973 
0976 
0977 
DFITA 
097D 
0981 
0984 
0986 
0989 
DIBA 
098D 
O9BF 
0991 


29 


33 
SB 


BO 


E8 


oc 


19 
19 


Sc 


19 


3 Sc 


Sc 


EE 


; 


JR NZ,$93E 
EX AF,AF 

LD (XPTR},HL 
EX DE,HL 
CALL $19B8 
CALL RAUS2 
EX DE,HL 

LDB HL, (XPTR) 
EX AF,AF 

EX AF,AF 
PUSH DE 

CALL $19B8 


LD (XPTR) ,HL 
LD HL, (PROB) 
EX (SP) ,HL 
PUSH BC 

EX AF,AF 

JR C,$955 
DEC HL 

CALL $1655 
INC HL 

JR $958 


CALL $1655 
INC HL 

POP BC 

POP DE 

LD (PROG),DE 
LD DE, (XPTR) 
PUSH BC 

PUSH DE 

EX DE,HL 
LDIR 

POP HL 

POP BC 

PUSH DE 

CALL RAUS2 
POP DE 

RET 


SUBROUTINE FÜR SAVE 


PUSH HL 

LD A,$FD 
CALL $1601 
XOR A 

LD DE,$9A1 
CALL $COA 
SET 5, (1Y+2) 
CALL $15D4 
PUSH IX 

LD DE,17 
XOR A 

CALL $402 
POP IX 

LD B,50 
HALT 


er. EEE EEE EEE ET 


MU EEE u TEE a TEE u TEE un 


HINZUFÜGEN 
FLAGS RETTEN 
"NEU’-POINTER RETTEN 


NÄCHSTE ZEILE/VARIABLE SUCHEN 
ALTE ZEILE/VARIAEBLE ENTFERNEN 
FOINTER UND 


FLASS WIEDER HOLEN 
FLAGS WIEDER RETTEN 
ZIELADRESSE SFEICHERN 
NÄCHSTE ZEILE/VARIABLE 
DEREN LÄNGE SUCHEN 
ZEILE/VARIABLE 'NEU’ RETTEN 
FROG ZWISCHENSPEICHERN 

UND FOINTER 'NEU’ HOLEN 

LÄNGE RETTEN 

FLAG ZURÜCK 

SPRUNG, WENN VARIABLE NEU 

NEUE ZEILE VOR DER ZIELADRESSE 
DEN FLATZ FREIMACHEN 

KORREKTUR 


UND 


PLATZ FüR NEUE VARIABLE MACHEN 
ERSTE FREIE STELLE 

LÄNGE HOLEN 

PROG HOLEN UND 
ZURÜCKSCHREIBEN 

NEUEN POINTER HOLEN 

LÄNGE UND 

POINTER ’NEU’ RETTEN 

POINTER RICHTIG SETZEN ZUM 
KOPIEREN BER ZEILE/VARIABLE 
POINTER 'NEU’ 

LÄNGE DER ZEILE/VARIABLEN 
RETTE POINTER ’ALT’ 
ZEILE/VARIABLE AUS WORKSPACE 
ENTFERNEN, PDOINTER ’ALT' 
ZURÜCKHOLEN UND FERTIG 


POINTER RETTEN 
KANAL K ÖFFNEN 


A = 0 FÜR ERSTE MELDUNG 
ADRESSE DER KASSETTENMELDUNGEN 


; AUSGABE 'START TAPE’ 


MERKEN: BILDSCHIRM LÖSCHEN 
AUF EINEN TASTENDRUCK WARTEN 
ADRESSE DES HEADERS RETTEN 
17 BYTES HEADER MUSSEN 

(A = HEADER) 

ABGESPEICHERT WERDEN 
HEADERADRESSE ZURÜCK 

B MIT 50 FÜR 

ZEITVERZÖGERUNG VON EINER 


51 


0992 10 FD DJNZ #991 SEKUNDE LADEN UND KARTEN 


’ 
0994 DD SE OB LD E,(IxX+$B) ; IN DE DIE LÄNGE DES ABZU- 
0997 DD 56 OC LD D,(IX+$0) ; SPEICHERNDEN DATENBLOCKS LADEN 
099A SE FF LD A,$FF ; $FF = DATENBLOCK 
099C DD EI POP IX ; ANFANG DES BLOCKES IN IX 
099E C5 C2 04 JP $4C2 ; UND ZUM ABSPEICHERN 
OFA1 ; 
OFAI ; MELDUNGEN FÜR KASSETTENREKORDER-BETRIEB 
09A1 ; 
09A1l 80 KASMEL .BYT $80 
09A2 53 74 .BYT 'Start tape, then press any key’,#AE 
0960 AE 
09C1 OD «BYT $0D, Program: ',$AO 
0962 50 72 
O9CA AO 
09CB OD .BYT $0D, 'Number array: ',$A0 
O9CC AE 75 
0909 AO 
09DA OD .BYT $0D, 'Character array: ',$A0O 
09DB 43 68 
O9EB AO 
09EC OD «BYT $0D, "Bytes: ',$A0 
09ED 42 79 
09F3 AO 
09F4 ; 
o9F4 Eng En E22 2222022202220 22 2022202020222 02 0202020202020 2 0202020202020 2020202220202 02 0222520202022 2 222222 
O9F4 ' 
O9F4 ; AUSGABERDUTINEN FüR BILDSCHIRM UND DRUCKER 
09F4 - 
09F4 ; REG A ENTHÄLT JEWEILS DAS AUSZUGEBENDE ZEICHEN, EIN 
O9FA ; TOKEN ODER EIN STEUERZEICHEN 
O9F4 ; 
09F4 CD 03 0B  AUSGAB CALL POSHOL ; PRINTPOSITION HOLEN 
09F7 FE 20 Bes ; ALLE DRUCKBAREN ZEICHEN UND 
09F9 D2 D9 OA JP NC,PRTICHA  ; TOKENS 
O9FC FE 06 CP & ; FÜR $00 - $05 ? DRUCKEN 
O9FE 38 49 IR C,PRTFRA 
OAO0O FE 18 CP $1B ; DESGLEICHEN FÜR $18 - $IF 
0A02 30 65 IR NC„PRTFRA 
OA0O4 21 0B OA LD HL,CONTRO-6 ; ADRESSE DER CONTROL-ZEICHEN- 
0A07 SF LD E,A ; TABELLE -6, DA NUR 06 BIS $17 
OAOB 16 00 LD D,0 ; ZUGELASSEN 
DaOA 19 ADD HL,DE ; OFFSET IN TABELLE BERECHNEN 
ÖADB SE LD E,(HL) ; OFFSET HOLEN, 
DAOC 19 ADD HL,DE ; FÜR RETURN-ADRESSE ADDIEREN 
DAOD ES PUSH HL ; UND AUF DEN STACK SCHIEBEN 
OADE C5 05 OB JP POSHOL ; PRINTFOSITION HOLEN 
oA ; 
Onll ; TABELLE DER OFFSETS FÜR CONTROL-ZEICHEN 
OAil ; 
oAll 4E CONTRO „BYT $4E ; PRINT KOMMA 
0Al2 57 ‚BYT #57 ; EDIT 
DAIS 10 .EYT #10 ; CURSOR NACH LINKS 
OAl4 29 ‚BYT #29 ; CURSOR NACH RECHTS 
DAlIS 54 ‚BYT $54 ; CURSOR NACH UNTEN 
OAl& 53 ‚BYT #53 ; CURSDR NACH DBENN 
OAl7 952 ‚BYT $52 ; DELETE 
OAlS 37 „BYT $37 ; ENTER 


92 


OA19 
DALA 
OA1B 
OAIG 
OA1D 
DALE 
OAIF 
OA20 
oA21 
0A22 
0A23 
0423 
0A23 
0A23 
0A23 
0A23 
0423 
0A24 
0A2& 
0A27 
0A29 
OAZD 
OAZF 
DAFO 
0A32 
0A34 
0A535 
0437 
OAS8 
OASA 
DASD 
OASD 
OASD 
OASD 
OASD 
OASD 
OA4O 
OA41 
OA45 
0A47 
OA4A 
OA4B 
OA4E 
OA4F 
OA4F 
OAAF 
OA4F 
OA4F 
DA4F 
OA4F 
OAS3 
0AS& 
OAS& 
DAS8 
OASB 
OASC 
OASF 
OASF 


91 
>6 
20 


69 


91 


01 


OD 


Sc 


37 


OB 


sc 


4E 


01 


4E 


0 En TE ae BE 


a NEE a 


no EEE TE 


„BYT $50 ; NICHT BENUTZT 
.BYT $4F ; NICHT BENUTZT 
„BYT $5F : INK 

„EYT $5E ; PAPER 

„BYT $5D ; FLASH 

„BYT $5C ; BRIGHT 

„BYT $5B  INVERSE 

„BYT $5A ; DVER 

„BYT $54 ; AT 

„BYT $53 ; TAB 


ECURSOR NACH LINKS 


B ENTHÄLT DIE ZEILENNUMMER UND C DIE SPALTENPOSITION 


DIE ZAHLEN FüR ZEILENNUMMER WERDEN VON UNTEN UND 
DIE SPALTENPOSITION VON RECHTS GEZÄHLT! 


INC C ; 1 NACH LINKS ZÄHLEN 

LD A,34 ; LINKER RAND ERREICHT ? 
PC 

JR NZ,#A3A ; NEIN 

BIT 1,(IY+1) ; FRINTERAUSGABE ? 

JR NZ,#A238 ; JA 

INC B ; SONST ZEILE 1 HÖHER 

LD £,2 ; SPALTE AUF 2 SETZEN 

LD A,24 ; BILDSCHIRMOBERKANTE ERREICHT ? 
CP E 

JR NZ,#ASA ; NEIN 

DEC B ; JA, ZEILE WIE VORHER UND 
LD 6,33 ; AUF ERSTE SPALTE SETZEN 
JP #DD9 


CURSOR EINS NACH RECHTS 
BE WIE OBEN BEI EINSTIEG 


DIESE ROUTINE ENTSPRICHT IN BASIC: PRINT OVERI1;CHR$32; 


LD A,({PFLAG) ; PFLAG RETTEN 

PUSH AF 

LD (IY+$57),1 5; PFLAG AUF OVER 1 SETZEN 
Ce ME 

CALL $B65 ; LEERZEICHEN AUSGEBEN 
POP AF ; UND PFLAG ZURÜCKHOLEN 
LD {PFLAG),A 

"RET 


BEHANDLUNG VON EINEM CARRIAGE RETURN (CR): 


BEI PRINTERAUSGABE WIRD DER PRINTERBUFFER AUSGEGEBEN. 


BEI BILDSCHIRMAUSGABE WIRD ERST GETESTET, OB DER 


BILDSCHIRM NOCH DBEN GEROLLT (SCROLL) WERDEN MUSS 


BIT 1,(1Y+1) ı PRINTER ? 


JP NZ,$ECD ; JA, ZUR BUFFERAUSGABE 

LD 6,33 ; LINKEN RAND SETZEN 

CALL #655 ; EVTL. SCROLLING DURCHFÜHREN 
DEC B ; ZEILE i NACH UNTEN 

JP £DD9 


"PRINT KOMMA’ SUBROUTINE: 


93 


OASF ; TABAUSGABE: SPALTE 0 ODER 16 


OASF - 

DASF CD 03 OB CALL POSHOL ; ZEILE UND SPALTE IN BC HOLEN 
0Ab2 79 LD A,c 

0A&3 3D DEC A ; 2 SPALTEN NACH RECHTS 

0A&4 3D DEC A 

0A55 E& Id AND #10 ı 0 ODER 15 DARAUS MACHEN 
0A67 18 5A JR TABFIL ; UND NOTIGE SPACES AUSGEBEN 
0A&9 ; 

0A&I 5E FF PRTFRA LO A, '?' ; NICHT DRUCKBARE ZEICHEN 
OA&B 18 &C JR PRTECHA ; DURCH FRAGEZEICHEN ERSETZEN 
OA&D ; 

OA&D ; STEUERZEICHEN MIT OPERANDEN BEHANDELN 

DA&D ; BEI 2 DPERANDEN (AT UND TAB): EINSTIEG #0A75 

OASD ; EIN DOPERAND (INK BIS OVER): EINSTIEG $0A7A 

DAAD ; STEUERZEICHEN IMMER IN TVDATA MERKEN, BEI 2 OPERANDEN 
DAAD ; DEN ERSTEN IN TVDATA+1 MERKEN (AUSGABE AUF £OAdD) 
DA&D - 

DA&D 11 87 0A ZWEIOP LD DE,EINOP 

0A7TG 32 OF SC LD (TVDATA+1),A ; ERSTEN DPERANDEN SPEICHERN 
0A73 18 0B JR AUSSET 

0A75 - 

0A75 ;ı EINSTIEG BEI AT UND TAB 

0A75 ; 

0A75 11 6D OA LD DE,ZWEIDOP ; AUSGABE ÄNDERN 

DOA7TB 18 03 JR $A7D 

OA7A ; 

OA7TA 11 87 0A LD DE,EINDP ; AUSGABE ÄNDERN UND STEUER- 
OA7TD 32 GE SC LD (TVDATA),A ; ZEICHEN IN TVDATA SPEICHERN 
OABO ; 

DABD 2A 51 SC AUSSET LD HL, CURCHL) ; AKTIVEN AUSGABEKANAL 

DAB3 73 LD (HL) ,E ; NEU SETZEN 

DAB4 23 INC HL 

DABS 72 LD {HL),D 

0ABb LC9 RET 

0A87 ; 

0A8B7 11 F4 09 EINDP LD DE,AUSGAB ; DPERANDEN GEHOLT UND AUSGABE 
DABA CD 30 0A CALL AUSSET ; WIEDER NORMAL 

DOABD 2A DE SC LD HL, (TVDATA) ; STEUERZEICHEN UND OPi 

DA9O 57 LD D,A ; LETZTEN DPERAND RETTEN 

0AP1 7D LD A,L ; STEUERZEICHEN: 

0A92 FE 16 CF $16 ; INK BIS OVER ? 

0A94 DA 11 22 JP C,$2211 ı JA 

0A97T 20 29 JR NZ,FRTTAB ; SFRUNG BEI TAB 

0A99 ; 

0499 ; BEHANDLUNG VON AT 

0A99 : 

A997 44 LD B,H ; ZEILENNUMMER (ERSTER DP) 
DASA 4A LD C,D ; SPALTENNUMMER 

DOA9EB SE IF LD A,31 ; DA RÜCKWÄRTS GEZÄHLT WIRD, 
OASD 91 SUR C ; ENTSPRECHEND UMRECHNEN 

OAGE 38 DC JR C,#AAC ; FALLS BEREICHSUBERSCHREITUNG 
ÖAADO LC& 02 ADD 2 ı 2 (OFFSET) ADDIEREN, DAMIT 
oOAA2 4F LD £,A 5 2-33 ENTHALT 

ÖAAS FD CE O1 4E BIT 1, (1Y*+1) ; PRINTERAUSGABE ? 

DAA? 20 16 JR NZ,$ABF 3A: LPRINT AT 

DAA? ; 

0AAI SE 16 LD A,22 ;s ZEILENNUMMER UMRECHNEN 
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DAAB 90 SUB B 


DOAAC DA 9F IE JP C,$1E9F ; ERROR: INTEGER OUT OF RANGE 
NDAAF j 

DAAF 53€ INC A ı 2 ALS OFFSET ADDIEREN 

OABO 47 LD B,A 

OABI 04 INC B ; UND IN B ERINGEN 

DOAB2 FD CB 02 4& BIT 0,(IY+2) ; UNTERER TEIL ? 

OAB& 2 55 06 JP NZ,$C55 ; JA, EVTL. SCROLLING DURCHFÜHREN 
DAB? FD BES CP (IY+$31) ; INNERHALE DES BILDSCHIRMS ? 
OABC DA 86 ÖC JP C,$CB& ; NEIN: OUT OF SCREEN 

DOABF C3 D9 OD JP #DD9 ; JA: RESTLICHE PARAMETER SETZEN 
OAC2 ; 

OAC2 ; TAB-AUSFÜHRUNG 

OAC2 - 

DAC2 7C PRTTAB LD A,H ; ERSTER DPERAND 

OACS CD 03 OB TABFIL CALL POSHOL ; POSITION HOLEN 

dOAC& Bi ADD C SPALTE ADDIEREN 

DOAC7 3D DEC A ; SPACESANZAHL BERECHNEN (0-31), 
DACB Ed IF AND $1F ;ı DIE AUSZUGEBEN SIND 

DACA CB RET 2 ; FALLS KEINE SPACE 

OACB ; 

DACB 57 LD D,A ; D ZUM ZÄHLEN BENUTZEN 

OACC FD CB 01 C6 SET Q,t1Y*+]) ; FÜHRENDEN SFACE UNTERDRÜCKEN 
DOADO 3E 20 PRTSPA LD A,’ ' ; DIE LEERZEICHEN 

DAD2 CD ZB OC CALL $C3B ; AUSGEBEN 

Q0ADS 15 DEC D ; ZÄHLER -1 

DAD&L 20 FB JR NZ,£ADO ; NDCH NICHT FERTIG 

0ADB LC9 RET 

0AD? ; 

OADY ; DRUCKBARE ZEICHEN BZW. TOKENS AUSGEBEN 

0AD? ; 

OADF CD 24 OB PRTCHA CALL $B24 

OADC ; 

OADE ; NEUE ZEILEN- UND SPALTENNUMMER SOWIE PIXEL-ADRESSE 
DADC ; IN DEN SYSTEMVARIABLEN SETZEN 

OADC : 

OADC FD CB 01 4E NEUSTO BIT 1,(IY+1) ; PRINTER ? 

DAED 20 1A JR NZ,$AFC ; JA 

OAE2 ; 

ÖOAE2 FD CB 02 45 BIT 0,(IY+2) ; BEI UNTEREM BILDSCHIRMTEIL 
DAEb 20 OB JR NZ,$AFO ; SPRINGEN 

OAEB ED 45 88 SC LD (SPOSN) ‚BC ; WERTE DES HAUPTTEILS SPEICHERN 
OAEC 22 B4 SC LD (DFEC),HL 

OAEF C9 RET 

OAFO ED 43 8A SC LD (SPOSNL),BC ; WERTE UNTERER TEIL SPEICHERN 
OAF4 ED 43 82 SC LD (ECHDE) „BE 

OAFB 22 85 SC LD (DFCEL),HL 

DAFB C9 RET 

OÖAFC 3 

ÖOAFC FD 71 45 LD (IY+$45),C ; PRINTER BUFFER POINTER 

OAFF 22 BO SC LD (PRECC) ,HL ; NEU SETZEN 

0BO2 C9 RET 

0B03 ; 

0BO3 ; BILDSCHIRM- ODER PRINTERPOSITIONEN IN BC UND HL HOLEN 
0BO3 FD CB O1 4E POSHOL BIT 1,(IY+1) ; PRINTER ? 

0B07 20 14 JR NZ,$BiD ; JA 

0B0O9 ED 4B 88 5C LD BC, (SPOSN) ; HAUPTSCHIRMPARAMETER 

0BOD 2A 84 5C LD HL, (DFECE) ; LADEN 
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0OB1O 
0Bi4 
OB15 
0B19 
OBIC 
OBiD 
0B20 
0B23 
0B24 
0B24 
0B24 
0B24 
0B2& 
0B28 
OB2A 
OB2C 
OB2D 
0OB30 
0B33 
0B3&6 
0B38 
0B38 
0OBSB 
0B58 
OBSB 
OBSB 
OB3E 
OB4AO 
OR41 
0B43 
0B44 
0B46 
0B47 
0B49 
OB4A 
OB4C 
OB4D 
OÜB4E 
OB4F 
OBS1 
0BS52 
0B52 
0B52 
0BS52 
0OBS54 
0BS6 
0B58 
0B5? 
OBSD 
OBSF 
OBSF 
0B&2 
0B65 
0B&5 
0B&A5 
OBsS 
OB5s& 
OB&A 


56 


FB 


4B 


02 46 


BA SC 
sc 


45 
sc 


sc 


OB 


7B SC 


6 5C 


-—-—_ ME an 


BIT 0O,(IY+2) 

RET Z ; RETURN BEI HAUPTBILDSCHIRM 

LD BC,(SPOSNL) ; SONST UNTERE SCHIRMPARAAMETER 
LD HL,{DFCEL) LADEN 

RET 

LD C,(IY+$45) ; DIE PRINTERBUFFERWERTE 

LD HL, (PRCC) ; HOLEN 

RET 


ZEICHEN ODER TOKENS AUSGEBEN 


CP $80 ; NORMALES ZEICHEN ($20 - $7F) ? 
JR C,$B65 JA 

CP $90 

JR NC,$B52 ; ALLE TDKENS UND ZEICHEN > $8F 


’ 
LD B,A ; HIER NUR $80 BIS $8F 

CALL $B3B ; GRAFIKZEICHEN GENERIEREN 

CALL POSHOL ; HL IST VERMURKST: WIEDER HOLEN 
LD DE,MEMBOT 

JR $B7F 


; 
; AUS DEN BITS 0-3 WIRD DAS GRAFIKZEICHEN GENERIERT 


I) = ..... 


RTOU 


‚ 
PRTTO 


LD HL,MEMBOT ; RAMADRESSE ZUM ZWISCHEN- 


; SPEICHERN DES GRAFIEZEICHENS 


y 

’ 
CALL $B3E ı 2 * AUFRUFEN 
RR B ; BIT 0 ODER 2 AUSWERTEN 
Sec A ; A ENTHÄLT $OF, FALLS BIT 
AND $OF ; GESETZT WAR, SONST $00 
LD C,A ; IN C ZWISCHENSPEICHERN 
RR B ; BIT 1 ODER 3 AUSWERTEN 
SBC A ; WIE VORHER, NUR JETZT 
AND $FO ; $F0O DDER $00 
OR C ; MIT NIEDEREM ERGEBNIS ODERN 
LD C,4 ; BITMUSTER 4 * BENUTZEN 
LD (HLI,A ; SPEICHERN 
INC HL ; POINTER +1 
DEC C ; ZÄHLER -1 
IR NZ,$B4C ; NDCH NICHT 4 * 
RET 


TOKEN CODES UND UDS 


SUB $AS 

JR NC,$BSF : WENN TOKEN CODES 

ADD $15 ; UDG’S JETZT $00 BIS #0F 
PUSH BE ; POSITION RETTEN 

LD BC, (UDE) ; ADRESSE DES UDG-BEREICHS 

JR #BöA 

CALL PRTTOK ; TOKEN IN BEFEHL UMWANDELN, 
JP POSHOL ; AUSGEBEN UND MIT POS. HOLEN 


3 
; NORMALES ZEICHEN AUSGEBEN 


PUSH BL ; POSITION RETTEN 
LD BC,{CHARS) ; ADRESSE DES ZEICHENBEREICHS 
EX DE,HL 


OB&B 
ÜB&E 
OB70 
0B72 
0B74 
0B7& 
0B78 
OB7B 
0879 
OE7A 
OB7B 
OB7TEC 
OB7D 
ORTE 
OB7F 
OB7F 
OB7F 
OB7FF 
OEBEO 
OB8l 
0BS3 
0BBS 
0B8& 
0B87 
DBBR 
OBSD 
OEBE 
0B91 
0B92 
0E93 
0ORF4 
0B95 
0B98 
0899 
OBFA 
ÖB9FB 
OB9IE 
OBAO 
DBAI 
OBAS 
OBA4 
OBAS 
OBA& 
OBA7 
OBAB 
ÜBAA 
OBAB 
OBAF 
OBRI 
OBBS5 
OBB& 
DBB7 
OBB7 
OBB7 
OBB7 
OBEBB 
OBB9I 
OBRA 


21 
DE 


CB 01 4E 


06 


ED DE 


39 06 


91 5C 
FF 


O1 


08 


CB 01 4E 
05 
CB 30 CE 


PRTREA 


ALLE 


LD HL,FLAGS 
RES O,CHL) ; FÜHRENDEN SPACE ZULASSEN 
6:3, * ; LEERZEICHEN ? 
JR NZ,$B76 ; NEIN 
SET 0, (HL) ; FALLS DOCH: UNTERDRÜCKEN 
LD H,0 ; NUN DAS ZEICHEN TATSÄCHLICH 
» BERECHNEN UND AUSGEBEN 
LD L,A ; DAZU IN HL DIE ADRESSE BILDEN 
ADD HL,HL * 8, DAB * 8 MATRIX 
ADD HL,HL 
ADD HL,HL 
ADD HL,BC ; BASISADRESSE ADDIEREN 
POP BC ; POSITION WIEDER HOLEN 
EX DE,HL ; STARTADRESSE DES ZEICHENS IN DE 


8*3 ZEICHEN AUSGEBEN 


LD A,C ; SPALTENNUMMER 

DEC A ; =1, ALSO EINS WEITER 

LD A,33 ‚ AUF ERSTE SPALTE SETZEN, FALLS 
JR NZ,$B93 ; ERFORDERLICH. SPRUNG = NEIN 
DEC B ; JA: ZEILENZÄHLER KORRIGIEREN 
LD C,A ; SPALTE AUF 33 (=GANZ LINKS) 
BIT 1,(1Y+1) ; PRINTER ? 

IR 2,$B93 ; NEIN 

PUSH DE ; STARTADRESSE RETTEN 

CALL $ECD ; PRINTERBUFFER AUSGEBEN 

POF DE ; STARTADRESSE ZURÜCKHOLEN 

LD A,C ; NEUE SPALTENNLMMER 

CP C ; NEUE ZEILE ? 

PUSH DE ; ZEICHENADRESSE RETTEN 

CALL 2,$C655 ; NEUE ZEILE: EVTL. SCROLLING 
POP DE ; ZEICHENADRESSE ZURÜCK 

PUSH BC ; ZWISCHENSPEICHERN 

PUSH HL ; . 

LD A,(PFLAG) 

LD B,$FF 

RRA ; PFLAG BIT 0 UNTERSUCHEN 

JR C,$BA4 

INC B ; DVERi: B=$FF,SONST 0 

RRA ; PFLAG BIT 2 UNTERSUCHEN 

RRA 

SBC A 

LD C,A ; INVERSE1: C=$FF, SONST 0 

LD A,B ; A ALS PIXELZÄHLER MIT 8 LADEN 
AND A ; CARRY LÖSCHEN 

BIT 1,(1Y+1) ; PRINTER ? 

JR 2,$BBö ; NEIN 

SET 1,(IY+$30) ; PRINTERBUFFER NICHT LEER 

SCF ; PRINTER WIRD BENUTZT 

EX DE,HL ; ZIEL- UND BASISADRESSE TAUSCHEN 


; DAS ZEICHEN WIRD IN EINER 8-FACHEN SCHLEIFE AUSGEGEBEN 


‚ 


EX AF,AF ; EARRYFLAG RETTEN (SET=PRINTER) 
LD A,(DE) 

AND B ; OVER: OÖ ZEICHEN WIE SPACE 

XDR (HL) 
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OBBB 
OBBC 
OBBD 
DBBE 
OBCO 
OBC1 
OBE2 
OBC3 
OBC5 
OBCS 
OBC5 
ÖBC7? 
ÖBCB 
ÖBCE 
OBEF 
OEDO 
OBDi 
OBD2 
OBD3 
OBD3 
OED4 
OBD& 
OBD7 
OBDB 
OBD? 
ÖBDB 
OBDB 
OBBB 
OBDB 
ÖBDE 
OBDD 
OEDE 
OBDF 
DBEI 
OBE3 
OBE4 
ÖBEB 
OBE9 
OBEA 
ÖBEB 
OBEC 
OBFO 
OBF2 
OBF4 
ÖBF& 
OBFB 
OBFA 
ÖBFE 
OCOO 
0602 
öc04 
OC0& 
OCOB 
0609 
OCOA 
OCOA 
OCOA 
0COA 
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F2 


DB 


20 


E& 


CB 
08 
[7 
37 
02 
38 
CB 
08 
F8 
ör 
02 
07 


BF SC 


37 76 


37 66 


(|: (an 


5 
; 


XOR c 
LD (DE),A 
EX AF,AF 
IR C,$BD3 
INE D 

INC HL 

DEC A 

JR NZ,$EB7 


EX DE,HL 
DECH 

BIT 1,(1Y+1) 
CALL Z,$BDB 
POP HL 

POP EC 

DEC C 

INC HL 

RET 


EX AF,AF 
LD A,32 
ADD E 

LD E,A 
EX AF,AF 
JR $BC1 


LD A,H 

RRCA 

RRCA 

RRCA 

AND 3 

OR $58 

LD H,A 

LD DE, (ATTRT) 
LD A,(HL) 

XOR E 

AND D 

XOR E 

BIT 6, (IY+87) 
JR Z,$BFA 
AND $C7 

BIT 2,A 

JR NZ,$BFA 
XOR $38 

BIT 4, (1Y+87) 
JR Z,$C08 
AND $FB 

BIT 5,A 

IR NZ,$C08 
XOR 7 

LD (HL),A 
RET 

„END 


„LIEB SPECOCOO-S 
SINCLAIR ZX SPECTRUM 


——0 BE u TEE u EEE a a 


eu EEE ae AR u 


a EEE a EEE a EEE 


INVERSE BERÜCKSICHTIGEN 
ERGEBNIS SFEICHERN 
CARRY UND ZÄHLER ZURÜCK 
BEI PRINTER 
ZIELADRESSE +1 
BASISADRESSE +1 
ZÄHLER -1 

NOCH NICHT B * 


(PAGE) 


ATTRIBUT-BYTE NUR BEI 
BILDSCHRIMHANDLING BEARBEITEN 
DRIGINAL ZIEL- UND 
POSITIONSADRESSE 
SPALTE +1 
ZIELADRESSE +1 


PRINTERFLAG (CARRY) RETTEN 
OFFSET ADDIEREN 


FLAGS ZURÜCK FüR SCHLEIFE 


SUBROUTINE ZUM SETZEN DER ATTRIBUTE 


HÖHERES ADRESSBYTE DES ZIELS 
DURCH 8 DIVIDIEREN, 

UM DEN ENTSPRECHENDEN 
BILDSCHIRMTEIL FESTZUSTELLEN 


HÖHERES BYTE DES ATTRIBUT- 
SPEICHERS BILDEN 

D = ATTRT UND E = MASKT 
ALTES ATTRIBUT HOLEN UND 
MIT MASKT UND 

ATTRT VERKNÜPFEN 


NICHT BEI FAPER? SPRINGEN 
ALTE FARBE AUSBLENDEN 
TEST AUF INK = DUNKEL 
NEIN 

JA: PAPERECDLOUR = 
INK = 9 

NEIN 

ALTE INKCOLOUR WEGWERFEN 
UND BEI FAPERCDLOUR = WEISS 
INKCOLOUR = DUNKEL 
ANDERNFALLS INKCOLDOUR = WEISS 
NEUEN ATTRIBUTWERT SPEICHERN 


WEISS 


TEIL 0C00 


OCcOA ; SUBROUTINE ZUM AUSGBEBEN VON MELDUNGEN UND TOKENS. 


OCOA ; DE ENTHÄLT DIE BASISADRESSE DER JEWEILIGEN TABELLLE 
OCcOA ; UND A DIE NUMMER DER MELDUNG ODER DES TOKEN 

ICOA ; 

ötöA ES PRTMEL PUSH HL ; HöHERES BYTE DES 

OC6B 25 00 LD H,0 ; LETZTEN STACK-EINTRAGS AUF 
0C0D E3 Ei I5Pl,ML : NULL SETZEN, UM NACHFOLGENDE 
OCGE 18 04 JR £C14 : SPACES ZU UNTERDRÜUCKEN 

oC10 ; 

E10 11 95 W FRTTOK LD DE,%95 ; ADRESSE DER TOKENTABELLE 

oG13 Fa FUSH AF : NUMMER RETTEN 

oC14 CD 41 ÖC CALL $C41 : START IN DER TABELLE SUCHEN 
DE1? 38 97 JR 6,$C22 ; DIREKT AUSGEBEN 

0619 3ZE: 20 LDA,' ; BEI CARRY GELSSCHT EVTL. EIN 
ociB FD CB O1 45 BIT 9,17) ; LEERZEICHEN AUSSEBN 

ir E BE CALL Z,8:C3B 

0622 - 

0622 s AUSGABE DER MELDUNG ODER TOKENS, BIS EIN ZEICHEN MIT 
0622 ; GESETZTEM BIT 7 GEFUNDEN WIRD 

DdC22 s 

DEZZ IR LD A,(DE) ; ZEICHEN AUS TABELLE LADEN 
0623 Eb ZF AND #7F ; BIT 7 AUSBLENDEN 

DL23 ED SB 8 CALL $C3B ; UND AUSGABE 

oc28 1A LD A,(DE) : NOCH MAL DAS ZEICHEN LADEN 
0629 13 INC DE ; POINTER IN TABELLE +1 

OC2A 87 ADE A s FALLS BIT 7 = Ö, IST DAS CARRY 
DE2ZB 30 5 JR NC,$C22 ; GELÖSCHT: WEITER AUSGEBEN 
OC2D - 

OC2D Di POP DE ; D= 0 FüR MELDUNGEN, SONST 
OCZE : D= 0 BIS $#5A FüR TOKENS 

ÖC2E FE 48 CP $48 SPRUNG, FALLS DAS LETZTE 

0630 2B 03 JR 2,3639 ; ZEICHEN EIN $£ WAR 

DC32- FE 82 EF $82 ;s FALLS ZEICHEN KLEINER #41 (=A) 
0C34 DB RET & ; WAR, RETURN 

0635 - 

9633 ZA LD A,D ı BEI MELDUNGEN, ’RND'’, ’INKEY#' 
DESb FEIBZ Er 3 : UND 'PI’ RETURN, SONST 

0638 DB RETE 

BE34_ SE 20 Er Pa ; IMMER EINEN SPACE AUSGEBEN 
OCSB 

OCSB AUSGABE EINES ZEICHENS IN REGISTER A UND 


En a Tan 


0C3B RETTEN DER REGISTER BC, DE UND HL 

OC3B 

OCSB D5 PUSH DE 

BE3E: DY EXX 

0C3D D7 RST PRTOUT ; AUSGABE DES ZEICHENS 

öC35E D? ERX 

OC3F Di POF DE 

0640 C9 RET 

oc4l - 

0C41 s IN TABELLE (=DE) DEN START DER MELDUNG ODER 

0C4i ; DES TOKENS SUCHEN 

0C4i - 

0C41 F5 PUSH AF ; NUMMER RETTEN 

0C42 EB EX DE,HL ; HL = ANFANG DER TABELLE 
0643 3C INC A ;s NUMMER +1 FüR SUCHSCHLEIFE 
0C44 CB 7E BIT 7, £BL} s BEI JEDEM GESETZTEN BIT 7 
OC44 23 INC HL ;s REG A HERUNTERZÄHLEN BIS NULL 
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0647 
0649 
0C4A 
OCAC 
0OC4D 
OC4E 
0650 
OCSi 
0652 
0654 
0655 
0655 
0655 
0655 
0655 
00597 
0OCSA 
OCSA 
OCSD 
OCSE 
OCSF 
0655 
0C6& 
0666 
0C6& 
0669 
OC5B 
DE5L 
OC&c 
0670 
0672 
0675 
0676 
0678 
0OC7A 
0C7D 
0OCBl 
0685 
0CB& 
0686 
0687 
0C88 
0CB8 
OCBB 
OCBD 
OCEBD 
OCBF 
0690 
0693 
0696 
0097 
DC9A 
0C9B 
0C9D 
OCAO 
OCAI 
OCAA4 
0CA7 
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FB 


FB 


20 


41 


CB 


D9 


01 4E 


OD 


02 46 
0D 


31 


02 66 


2D 


15 
3F St 
02 Ab 


32 


au En WE [m 


JR 2,$044 
DEC A 

JR NZ,$C44 
EX DE,HL 
POP AF 

CP 32 

RET C 

LD A,(DE) 
SUB $41 
RET 


BIT 1,(1Y+1) 
RET NZ 


LD DE,$DD9 
PUSH DE 

LD A,B 

BIT 0, (1Y+2) 
JP NZ,$D02 


CP (IY+$31) 
JR C,$C8& 
RET NZ 


BIT 4,(1Y+2) 
JR 7,$C88 

LD E,(IY+$2D) 
DEC E 

JR 2,$CD2 

LD A,O 

CALL $1601 

LD SP, (LISTSP) 
RES 4, (IY+2) 
RET 


RST ERRAUS 
«BYT $04 


DEC (IY+$52) 
JR NZ,$CD2 


LD A,24 

SUB B 

LD (SCRET),A 
LD HL, (ATTRT) 
PUSH HL 

LD A,(PFLAB) 
PUSH AF 

LD A,$FD 
CALL $1601 
XOR A 

LD DE,SCROLL 
CALL $C0A 
SET 5, (1Y+2) 


SUBROUTINE ZUM TESTEN, 
REGISTER B ENTHÄLT DIE 


On TEE NEE a EEE ae NEE a TEE u TEE ae 


0 WE a ir 


ERREICHT {= MELDUNG GEFUNDEN), 
SONST NUR HL INKREMENTIEREN 


DE ZEIGT AUF DIE MELDUNG 
NUMMER ZURÜCK IN REG A 
NUMMERN O0 - 31 RETURN 


SONST ERSTES ZEICHEN LADEN 
UND AUF > #41 PRÜFEN, UM EVTL. 


; EINEN SPACE AUSZUGEBEN 


DB EIN SCROLLING NOTWENDIGE IST. 
ZU TESTENDE ZEILENNUMMER 


FALLS PRINTERAUSGABE, 
DIREKT RETURN 


RETURNADRESSE $DD? 
AUF STACK 


TEST TV-FLAG: SPRUNG, 
FALLS ‘INPUT AT’ 
(ANMERKUNG: ZEILEN WERDEN 
VON UNTEN GEZÄHLT!) 
ZEILENNUMMER > ALS DFSZ? 
JA, ERROR 

ZEILENNNUMMER £ DFSZ 
WEITER, WENN BEIDE GLEICH 
AUTDMATISCHES LISTING? 
NEIN 

ZEILENZÄHLER HOLEN 

UND i SUBTRAHIEREN 

FALLS 0: SCROLLING AUSFÜHREN 
KANAL K ERÖFFNEN 


; STACKPOINTER SETZEN 


UND MERKEN, DASS AUTDMATISCHES 
LISTEN BEENDET 


MELDUNG 'OUT OF SCREEN’ 


SCROLL-ZÄHLER -1 
ZUM DIREKTEN SCROLLING 
AUSGABE DER MELDUNG "SCROLL?' 


SCROLL-ZÄHLER 
ZURÜCKSETZEN 
ATTRT UND MASKT RETTEN 


PFLAG EBENFALLS RETTEN 
KANAL K örFFNEN 

REG A=0 (ERSTE MELDUNG), 
DE MIT ADRESSE DER TABELLE 


LADEN UND AUSGABE 'SCROLL?' 
MERKE: UNT, TEIL NACH TASTEN- 


OCAB 
DCAB 
OCAE 
OCBO 
0CB2 
OCB3 
OCB& 
0OCB7 
0CB9 
OCBB 
OCBD 
ÜCBF 
Occi 
06C3 
OCCS 
0CC7? 
OCCA 
OcCB 
OCCE 
OCcErF 
0CD2 
0CD2 
öCcD2 
dCD2 
OCcDS 
OCD8 
OCcD9 
OCDB 
öCcDE 
OCDF 
ÖCEO 
OCEl 
OCE2 
OCE3 
öCES 
OCE7 
OCEB 
OLCEB 
OCEB 
OCEC 
ÖCED 
OLEF 
öcFö 
OcFi 
ocF2 
OCcF3 
öcF4 
ÖCF& 
öcF? 
öcF8 
OCFB 
OCF8 
OCFB 
OCF9 
OCFF 
ODOO 
ODOO 
oDO1 


FA 


15 


16 


Sc 


Sc 


OD 
31 


DE 


SA 


EEE un 


LD HL,FLAGS 
SET 3, (HL) 
RES 5,CHL) 
EXX 

CALL $15D4 
EXX 

CP $20 

JR Z,$D00 
CP $E2 

JR 7,$D00 
OR $20 

CP $6E 

JR 2,$D00 
LD A,$FE 
CALL $1601 
POP AF 

LD (PFLAB) A 
POP HL 


LD (ATTRT) HL 


CALL $DFE 


LD B,(IY+$31) 


INC B 
LD C,$21 
PUSH BC 
CALL $E9B 


LD H,A 
LD DE,$SAEO 


LD A,(DE) 
LD C, (HL) 
LD B,32 
EX DE,HL 
LD {DE),A 
LD (HL) ,C 
INC DE 
INC HL 
DINZ $CFO 
POP BC 
RET 


MELDUNG "SCROLL?' 


nu NEE a a 


DRUCK LOSCHEN 


L-MODUS SETZEN UND 
"KEINE TASTE BISHER’ ANMERKEN 


1 ZEICHEN HOLEN 
FALLS TASTENDRUCK 'BREAK’, 
"STOP’, 'N’ DDER 'n’ WAR, 


MELDUNG '"BREAK - CONT reneats'’ 
AUSGEBEN 


SONST KANAL '5° ERÖFFNEN 
PFLAG ZURUCKHDLEN 


ATTRT UND MASKT EBENFALLS 


BILDSCHIRM ROLLEN UND PARAMETER NEU SETZEN 


GANZEN BILDSCHIRM ROLLEN 


ZEILENNUMMER OBERER TEIL NEU 
ERSTE SPALTE SETZEN 

UND ZWISCHENSPEICHERN 

DAS ENTSPRECHENDE ATTRIBUTE 
FüR DIESEN TEIL SUCHEN 


ERGEBNIS IN HL 

ZEIGER AUF ERSTES ATTRIBUT 
DER UNTERSTEN ZEILE 

ZÄHLER FÜR 32 * AUSTAUSCHEN 
DIE ERSTEN ATTRIBUTE TAUSCHEN 


UND DEN NÄCHSTEN 532 BYTES 
DIE GLEICHEN WERTE ZUWEISEN 


ZEILEN-/SPALTENNUMMER DER 
UNTERSTEN ZEILE ZURÜCKHOLEN 


SCROLL „BYT $80,'’scroll‘’,$BF 


RST ERRAUS 
.„BYT £0C 


MELDUNG: 
"BREAK - CONT repeats’ 
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0002 
0002 
0D02 
0D02 
0004 
0005 
0D09 
ODOB 
ODOC 
ODOE 
ODOF 
OD10 
0D13 
0Di4 
0D17 
öD18 
ODIB 
ODIC 
ODiD 
0D20 
0D21 
0022 
0023 
0D24 
0027 
0028 
OD2A 
OD2B 
OD2D 
0D30 
OD31 
0032 
0D34 
0D35 
0D38 
0039 
OD3C 
OD40 
0D44 
0D47 
OD4B 
OD4C 
OD4D 
OD4D 
OD4D 
OD4D 
OD4D 
OD4E 
0D51 
0D55 
0D57 
0D58 
ODSB 
ODSE 
ODSE 
ODsi 
0D&3 
0D53 
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4D 


6B 


89 


03 


18 
00 


EB 


753 


BF 
4B 
CB 
D9 
CB 


sc 


ac 


öD 


Sc 


Sc 


OE 


37 


Sc 
88 
02 
OD 


02 


Sc 
86 


C5 


2 46 


PET 7 7 


; 
j 
A 


; 


PFLAG NEU SETZEN 


CP 2 

JR C,$C86 
ADD (IY+$31) 
SUB $19 

RET -NC 

NEG 

PUSH BC 

LD B,A 

LD HL, (ATTRTD 
PUSH HL 

LD HL,(PFLAB) 
PUSH HL 

CALL AKTCOL 
LD A,B 

PUSH AF 

LD HL,DFSZ 

LD B,(HL) 

LD A,B 

INC A 

LD (HL),A 

LD HL,SPOSN+1 
CP (HL) 

IR C,$D2D 

INC (HL) 

LD B,$18 

CALL $E00 
POP AF 

DEC A 

JR NZ,$DIC 
POP HL 

LD (IY+$57) ,L 
POP HL 

LD (ATTRT) ‚HL 
LD BEL, (SPOSN) 
RES 0,(IY+2) 
CALL +DD9 
SET 0, (IY+2) 
POP BC 

RET 


KTCOL XDOR A 


LD HL, (ATTRP) 
BIT 0,(IY+2) 
JR Z,$D5B 

LD H,A 

LD L,(IY+$E) 
LD (ATTRT) HL 


LD HL,PFLAG 
IR NZ,$Ds5 


LD A,(HL) 


UNTEREN BILDSCHIRMTEIL 


. — EEE u A 


|. ||. 


—_— rn EEE a En 


—— ME u TEE u TE 


3 
s 
3 
. 
’ 
“ 
y 


BEHANDLUNG UNT. 


BEHANDELN 


ERRORAUSGABE, FALLS LUNTERER 
TEIL ZU GROSS 


RETURN, WENN 

KEIN SCROLLING NOTWENDIG 
ANZAHL DER SCROLLS IN A 
ZEILEN-/SPALTENNUMMER RETTEN 
ANZAHL ZWISCHENSPEICHERN 
ATTRT, MASKT UND 


PFLAG ZWISCHENSPEICHERN 


SERDLLINGZAHL ZURÜCK NACH A 
ZWISCHENSPEICHERN 


WERT VON DFSZ IN REG B UND 


DIESER +1 NACH 
DFSZ ZURÜCKSCHREIBEN 


SPRUNG, FALLS NUR BER UNTERE 


TEIL GESCROLLT WERDEN SOLL 


SDNST SPOSN-HIGH +1 UND DEN 


GANZEN BILDSCHIRM ROLLEN 


(REG B) ZEILEN ROLLEN 


SCROLL-ZÄHLER HOLEN UND 


1 SUBTRAHIEREN 


NOCH MAL ROLLEN 


SONST PFLAG UND 


ATTRT UND MASKT WIEDER HOLEN 


FALLS SPOSN GEÄNDERT HURDE, 


DEN WERT VON DFECE 


NEU BERECHNEN 
TEIL ANMERKEN 
ZEILEN/SPALTENNUMMER ZURÜCK 


DIESE SUBROUTINE HOLT DIE AKTUELLEN FARBEN IN DIE 
"TRANSPARENTEN’ VARIABLEN ATTRT UND MASKT 


A=0 


’ 
AKTUELLE ATTRP UND MASKP 


OBERER BILDSCHIRMTEIL 


UNTERER TEIL: A UND 
BORDER BENUTZEN FÜR 
ATTRT UND MASKT 


(FüR UNTEREN TEIL ISTA = 6) 


IMMER SPRUNG BEIM UNTEREN TEIL 


DBERER TEIL: ALTEN WERT HOLEN 


0Ds4 
OD55 
0Ds6 
OD&B 
0D&9 
DD&A 
OD&E 
OD&B 
OD&B 
DDAB 
ÖD&ZE 
0D71 
0073 
0D75 
0D78 
OD7B 
OD7E 
öD8il 
0084 
OD85 
0D87 
0089 
oD8A 
ODEB 
öDStc 
ODBE 
0D90 
0D90 
0D94 
0D9& 
5D99 
OD®E 
OD9YF 
ODAO 
ODAI 
nDA2 
ODA3 
ODA4 
öDA7 
ODAB 
ODAA 
ODAD 
ODAF 
ÖDAF 
ODAF 
ÖDAF 
ODB2 
ODBS 
ODB9 
ODBE 
ODEC 
ÖDBE 
oDC1 
oDc4 
ODCA 
0DC9 
ODEE 
dDEF 


OD 
Sc 


OD 
S1 
DE 
SA 


oc 
J 


16 


09 


10 


17 


85 


“ 
; 
E 
H 


r 
5 


"£ELS 


RREA 

XOR (HL) 
AND #55 
XOR (HL) 
LD {HL),A 
RET 


"=BEFEHL 


CALL $DAF 

LD HL,TVFLAG 
RES 5, (HL) 
SET O,CHL) 
CALL AKTCOL 
LD B,(IY+$31) 
CALL $E44 

LD HL,$SACO 
LD A,(ATTRP) 
DEC B 

JR $DBE 

LD 6,32 

DEC HL 

LD (HL),A 
DEC C 

IR NZ,$D89 
DINZ $D97 


LD (IY+$31),2 
LD A,$FD 

CALL $1601 

LD HL, (EURCHL) 
LD DE,AUSGAB 
AND A 

LD CHLI,E 

INC HL 

LD (HL),D 

INE HL 

LD DE,$10A8 
CCF 

JR C,$DAO 

LD BE,$1721 

IR $DD9 


BILDSCHIRM LÖSCHEN 


LD HL,O 

LD (COORDS) ‚HL 
RES 0, t1Y+$30) 
CALL $D94 


LD As$FE 
CALL $1601 
CALL AKTCOL 
LD B,$18 

CALL $E44 

LD HL, (CURCHL) 
LD DE,AUSGAB 
LD (HLI,E 


u. .- ME un 


0 a ae En 


—-— "At 1. . 


-— m. (EEE 


UND DIE UNGERADEN BITS (7,5..) 
IN DIE GERADEN KOPIEREN 

BEIM UNTEREN SCHIRMTEIL WERDEN 
NUR DIE GERADEN BITS 

GELÖSCHT (EITS 6,4,2,0) 


GANZEN BILDSCHIRM LÖSCHEN 
UNT. TEIL NACH TASTENDRUCK 
NICHT LSSCHEN 

UNTEREN TEIL SETZEN 

BORDER NACH ATTRT KOPIEREN 
DFSZ LADEN UND UNTEREN TEIL 
DES BILDSCHIRMS L5SCHEN 
ADRESSE ATTRIBUT VON ZEILE 
ATTRP WIRD ALS ATTRIBUT Für 
DEN UNT. TEIL BENUTZT 

IN DIE SCHLEIFE SFRINGEN 

52 ZEICHEN PRO ZEILE 


WR, 
eh 


WERTE SETZEN 


ZEILE NOCH NICHT FERTIG 
UNTEREN TEIL NOCH NICHT FERTIG 


2 ZEILEN ALS UNT. 
KANAL K ÖFFNEN 


TEIL SETZEN 


ADRESSE AKT. KANAL UND 
AUSGABEADRESSE AUF #09F4 
(CARRY LÖSCHEN) 

SETZEN BZW. IN DER 
ZWEITEN SCHLEIFE AUF 


DIE EINGABEADRESSE 


ZEILE-/SFALTENNUMMER DER 
ERSTEN UNT. ZEILE 


VARIABLE 'COORDS’ LÖSCHEN 
FLASS2: BILDSCHIRM GELÖSCHT 
EIN-/AUSSABEADR. UND KANAL K 
ORIGINAL SETZEN 


KANAL S ÖFFNEN 


PERMANENTEN WERTE BENUTZEN 
24 ZEILEN DES BILDSCHIRMS 
LÖSCHEN 

AUSGABEADRESSE 

AUF £D9F4 

SETZEN 
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oDDNO 23 INC HL 

oDDi 72 LD (HL),D 

oDD2 FD 36 52 O1 LD (IY#+$52),1 ; SECROLL-ZÄHLER RUCKSETZEN 

OöDDs 61 21 18 LD BC,#1821 :s ERSTE ZEILE UND ERSTE SPALTE 
0DD9Y s 

0DD9 s PRINTPOSITION AUF BILDSCHIRM SETZEN 

0DD9 ; EINSPRUNG MIT ZEILEN-/SPALTENNUMMER IN BC ODER, FALLS 
0DD9 ; PRINTER ANGESPROCHEN, SPALTENPOSITION IN C FüR PRINTER 
0DD9 : 

0DD9 21 00 SB LD HL,PTRBUF ; ADRESSE PRINTERPUFFER 

ODDE FD ER 01 4E BIT 1.151781) PRINTER ANGESPROCHEN? 

ODEO 20 12 JR NZ,$DF4 ; JA 

ODE2 78 LD A,B ; ZEILENNUMMER NACH A 

ODES FD CB 02 44 BIT O,CEY#2) 

ODE7 28 05 JR Z,#DEE ; BEI HAUPTBILDSCHIRMTEIL 

ODEI FD 84 31 ADD (IY+$31) ;s DFSZ ADDIEREN UND 24 SUBTRA- 
ODEC D& 18 SUB #18 ; HIEREN, WEIL VDN UNTEN 

ODEE ı GEZÄHLT WIRD 

ODEE C5 PUSH BC ; ZWISCHENSPEICHERN 

ODEF 47 LD B,A ı KOPIE NACH B, UM DIE ADRESSE 
ODFO CD 9B ÖE CALL £E9B ; DER ZEILE IN HL ZU BERECHNEN 
DDBF3 Ci POP BC ; ZEILEN-/SPALTENZAHL ZURÜCK 
ODF4 3E 21 LD A,33 ; SPALTENZAHL UMRECHNEN, DA 
ODF& 91 SUB C ; DIESE VON HINTEN GEZÄHLT WIRD 
ODF7 SF LE £28 ; NEUE ADRESSE BILDEN 

ODFB 1i& 00 LD D,Ö UND ZUSAMMEN MIT 

ODFA 19 ADD HL,DE ; ZEILEN-/SPALTENNUMMERN 

ODFB C3 DE 0A JP NEUSTO ı SPEICHERN 

ODFE ; 

ODFE ;s SUBROUTINE ZUM ROLLEN (SCROLLING) DES BILDSCHIRMS 
ODFE s ANZAHL DER GEROLLTEN ZEILEN MUSS IN B STEHEN 

ODFE - 

ODFE 06 17 LD' 8,25 s EINSTIEG NACH FRAGE °'SCROLL?‘ 
0EOD CD 9B 0E CALL $£E9B ; STARTADRESSE DER ZEILE SUCHEN 
0OE0OS DE 08 ED 648 : B PIXEL-ZEILEN 

DEOS C5 PUSH BC ;s ZEILEN-/PIXELZÄHLER RETTEN 
0E0OA ES PUSH HL ; STARTADRESSE EBENFALLS 

0E07 78 LD A,B ;s PRÜFEN, DB OBERSTE ZEILE 

0EOB E& 07 AND 7 ; EINES BILDSCHIRMDRITTELS 

OEOA 7B LD A,B ; GESCROLLT WERDEN SOLL 

OEDB 20 0C JR NZ,$E19 ı NEIN 

OEOD ; JA: OBERSTE ZEILE MUSS IN 
ÖEOD ;s UNTERSTE DES 1 HöHEREN TEILS 
0EOD ; KOPIERT WERDEN 

ÖEOD EB EX DE.HL : BREITE HL 

DOEOE 21 EO FB LD HL,#FBEO ; ES WIRD DIE NOTWENDIGE ADRESSE 
0Ell 19 ADD HL,DE ı FüR DE BERECHNET 

OET2: EB EX DE,HL ; HL WIEDER HOLEN 

0E1iS 01 20 00 LED BE,;82 SZ ZETEHEN 

DEI& 3D DEC A ; ZÄHLER -1 

0OE17 ED BO LDIR : UND 32 ZEICHEN KOPIEREN 

0E1? - 

0E19 s PIXEL-ZEILEN INNERHALB DER BILDSCHIRMDRITTEL SCROLLEN 
0E1? ; 

DEIY EB ER DESHL ; FüR DE DIE ZIELADRESSE 

DEIA 21 EO FF LD HL,FFFEO ; BERECHNEN, 32 BYTES VORHER 
0EID 19 ADD HL,DE 

OEIE EB EX DE,HL ; HL WIEDER HOLEN 
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dEIF 
0E2O 
0E22 
0E23 
0E24 
0E2S 
0E2& 
0E27 
0E29 
DEZB 
OE2D 
DEZE 
0ESO 
0E32 
0E32 
0ES2 
0E32 
0E32 
0DEFS 
0ES34 
0E3S 
DES& 
E38 
0E38 
0ES8 
DE38 
0ESB 
OESE 
DESF 
DE4O 
DE42 
0E44 
dE44 
DE44 
0E44 
0E44 
OE4S 
DE4B 
OE4A 
DE4B 
DE4C 
DEAD 
DE4F 
DESO 
DESI 
0ES2 
0ESF3 
0ES54 
0ES& 
0ES7 
0ESB 
0ES9 
DESB 
OESC 
DESE 
DE&I 
DEZ 
0ES3 


07 


’ CD 


68 
EÜ 


Bü 
01 


9B 
08 


07 


00 


ÖE 


DE 


07 


ae WE ae 


.- (EE 1an 


LD B,A 
AND 7 
RRCA 

RRCA 

RRCA 

LD C,A 

LD A,B 

LD B,0 
LDIR 

LD B,7 
ADD HL,BC 
AND $F8 
JR NZ,$EOD 


POP HL 
INC H 
POP BC 
DEC C 
JR NZ,$E05 


DIE ATTRIBUTE MÜSSEN 


CALL $E88 


LD HL,$FFEO 


ADD HL,DE 
EX DE,HL 
LDIR 

LD B,1 


PUSH BC 
CALL $E9B 
LD 6,8 
PUSH BC 
PUSH HL 
LD A,B 
AND 7 
RRCA 

RRCA 

RRCA 

LD C,A 

LD A,B 

LD BO 
DEC C 

LD D,H 

LD E,L 

LD (HL) ,O 
INC DE 
LDIR 

LD DE,$701 
ADD HL,DE 
DEC A 

AND $Fe 


— WE a Ta 


.— m. WE un 


“ 
‚ 
“ 
’ 
- 
’ 
. 
’ 
“ 
y 


ZEILENNUMMER ZWISCHENSPEICHERN 
ANZAHL DER IN DIESEM BILD- 
DRITTEL VORHANDENEN ZEICHEN 
BERECHNEN 


UND IN C BRINGEN 
ZEILENNUMMER IN A ZURÜCK 
BC = ANZAHL "ALLE ZEICHEN’ 
UND TRANSFERIEREN 


HL +#$0700 FÜR NÄCHSTES DRITTEL 
SPRUNG, FALLS WEITERE DRITTEL 
BEARBEITET WERDEN MüSSEN 


OBIGE ROUTINE MUSS 8 MAL, FüR JEDE PIXELZEILE EINMAL, 
DURCHLAUFEN WERDEN 


STARTADRESSE NOCHMAL HOLEN 
+1 FüR NÄCHSTE PIXELZEILE 
PIXELZÄHLER HOLEN 

PIXEL 1 

NOCH NICHT 8 % 


AUCH NOCH GESCROLLT WERDEN 


” 
’ 


—— Mn — WE u 


EEE a EEE a Ta 


ATTRIEUTEADRESSE BERECHNEN 
DIFFERENZ VON 32 FüR ATTRIBUTE 
VON DE ABZIEHEN 


ATTRIBUTE VERSCHIEBEN 


: UNTERSTE ZEILE LöOSCHEN 


DIESE ROUTINE LOÖSCHT DIE ANZAHL ZEILEN VON UNTEN, DIE 
DURCH B BESTIMMT WERDEN 


ZEILENNUMMER RETTEN 

ADRESSE IN HL BERECHNEN 

8 FIXELZEILEN 

ZEILENNUMMER, PIXELZÄHLER UND 
STARTADRESSE ZWISCHENSPEICHERN 
ZEILENZAHL NACH A 


HIERMIT DIE ZEICHENZAHL 
BERECHNEN UND IN 


E BRINGEN 


BC AUF 1 WENIGER ALS 
ZEICHENZAHL SETZEN 
STARTADRESSE NACH DE 


EIN PIXEL LÖSCHEN 

FÜR SCHLEIFE DE +1 

ALLE WEITEREN PIXELS LÖSCHEN 
FüR PIXELREIHE IM NÄCHSTEN 
DRITTEL $0701 ADDIEREN 
ZEILENZAHL -1 

NUR DEN "DRITTELZÄHLER' NACH 
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DEöS 47 LD B,A ; B BRINGEN UND EVTL. 
; 


0OEö5 20 ES JR NZ,$E4D WEITERE DRITTEL BEARBEITEN 
0E&B s 

0ES8 ;s PRÜFEN, OB 8* DIE ROUTINE DURCHLAUFEN WURDE 

0E&68 ; 

0E&8 EI POP HL ı STARTADRESSE ZURÜCK 

DEI 24 INC H ; UND i ADDIEREN 

OE&A Ci POP BC ;s ZEILEN-/PIXELZÄHLER HOLEN 
OE6&E OD DEC C ı PIXEL +1 

0E&C 20 DE JR NZ,$E4A s NOCH NICHT 8 * 

ÖEdE LCD 88 0E CALL $EBB s ADRESSE UND ZAHL DER ATTRIBUT- 
0ETI ; BYTES SUCHEN 

0E7T1L 62 LD H,D 

0E72 &B LD L,E 

0E73 13 INC DE 

0E74 SA 8D SC LD A,(ATTRP) s ATTRP FüR HAUPTTEIL BENUTZEN 
0E77T FD CB 02 46 BIT 0, (IY+2) ; TVFLAG: HAUPTTEIL BILDSCHIRM? 
OE7B 28 03 JR Z,$EBO s JA 

DE7TD 3A 48 5C LD A,(BORDER) ; SONST BORDBERCOLOUR BENUTZEN 
0EBO 77 LD (HL),A s ERSTES SETZEN 

0EB1 OB DEC BC ;s UND ZÄHLER -1 

0EB2 ED BO LDIR s DEN REST EINSCHREIBEN 

DEB4 Ci POF BC ; ZEILENNUMMER ZURÜCK UND 

0OEBS 0OE 21 LDB 6,33 s SPALTENZAHL AUF ERSTE SETZEN 
0EB7 C9 RET 

0E88 ; 

0OE88 s BERECHNE ZU EINER BILDSCHIRMSTELLE DIE ADRESSE 

0EBB ; DER ATTRIBUT-INFORMATIDNEN 

OEBB ; 

0OEBSB 7C LD A,H ; HÖHERES BYTE LADEN 

0EBF OF RRCA s MIT 32 MALNEHMEN 

DESA OF RRCA 

OESB OF RRCA 

OE&C SD DEC A ; EINS ABZIEHEN 

0OESD F& 50 DR $50 ; BASISADRESSE DER ATTRIBUT- 
OEBF ; INFORMATIONEN 

OESF 67 LD H,A ; HÖHERES BYTE GEFUNDEN 

0E90O EB EX DE,HL ; LOW BYTE BLEIBT GLEICH 

0EFI Bi LD H,C s E IST IMMER NULL 

0E92 68 LD L,B ; ZEILENNUMMER 

0E9S3 29 ADD HL,HL ; EBENFALLS MIT 32 MALNEHMEN 
0OE94 29 ADD HL,HL 

0EIS 29 ADD HL,HL 

0EIb 29 ADD HL,HL 

0E97 29 ADD HL,HL 

0E9B 44 LD B,H ; NACH BC ZURÜCKLADEN 

0E99 4D LD 5,L 

0OE9A C9 RET 

OE9B ; 

0E9B ; BILDE SPEICHERADRESSE EINER PUNKTREIHE 

OE9B ;s DES SCHIRMS IN HL 

OE9B R 

0E9B 3E 18 LD A,$18 

0OEFSD 90 SUB B ; ZEILE WIRD VON UNTEN GEZÄHLT 
0E9E 57 LD D,A s MIT 32 MALNEHMEN 

OE9F OF RRCA ;s DURCH DREIMALIGES RECHTSROTIEREN 
OEAO OF RRCA ; (EBENSO GUT WIE 5%* LINKS) 
OEAl OF RRCA 


66 


OEA2 
0EA4 
ÖEAS 
EA 
DEAB 
OEAA 
ÖEAB 
DEAC 
DEAC 
DEAC 
OEAC 
ÖEAD 
DEAF 
DEAF 
OEB2 
DEB3Z 
OEB4 
DEB7 
OEBB 
üEB9Y 
ÖEBA 
OEBB 
DEBD 
OEBF 
DECO 
DEC2 
DECZ 
0EC4 
ÖOECS 
0EC7 
DECEB 
0EC9Y 
OECEB 
OECD 
ÖECD 
OECD 
OECD 
DECE 
dOEDI 
dED3 
DEDA4 
OED? 
VEDE 
OEDA 
VEDE 
OEDE 
OEDF 
OEDF 
OEE2 
OEES 
DEES 
DEE& 
OEE7 
DEE8 
OEE9I 
ÖEEB 
ODEEB 
ÖEEF 


EO 


18 
40 


BO 


00 


F4 


FC 


CB 


AND $EO ; DIE DREI GÜLTIGEN BITS NEHMEN 
LD L,A ; NIEDERES BYTE SETZEN 
LD A,D ı HÖHERES BYTE 
AND +18 ; KANN NUR $#40/$48/$50 SEIN 
OR #>BILD ; STARTADRESSE DES BILDSCHIRMS 
LD H,A ; HÖHERES BYTE SETZEN 
RET 
; COPY SCREEN 
DI 
LD B,$BO ; 176 (22*8) DRUCKZEILEN 
; ZU JE EINER NADEL 
40 LD HL,BILD ; STARTADRESSE BILDSCHIRM 
NXLINE PUSH HL 
PUSH BC 
DE CALL PRLINE ; EINE NADELZEILE AUSBEBEN 
POP BC 
POP HL 
INC H ; 256 BYTES WEITER: NÄCHSTE ZEILE 
LD A,H 
AND 7 
IR NZ,NXLINI ; NOCH INNERHALB EINER ZEILE 
LD A,L 
ADD 32 ; 32 BYTES WEITER: NÄCHSTE ZEILE 
LD L,A 
CCF ; IST L üBERBELAUFEN? 
SBc A » BEI üBERL. FF, SONST 00. 
AND $FB ; BIT 0..2 ZÄHLEN NADELZEILEN 
ADD H ı $F8 ADDIEREN, WENN L=00 
LD H,A 
NXLINi DINZ NXLINE ; WEITER MIT DEN 176 ZEILEN 
IR $EDA ; ENDE COPY 
’ 
; PRINTER BUFFER $5800..$5BFF AUSDRUCKEN 
DI 
SB LD HL,FTRBUF ; PRINTERBUFFERADRESSE LADEN 
LD B,B ; B NADELREIHEN AUSGEBEN 
PUSH BL 
DE CALL PRLINE 
POP EC 
DINZ $EDZ 
LD A,4 ; ABSCHALTBIT FÜR DRUCKER 
DUT ($FB),A ; AUSBEBEN 
EI 
’ 
SB LD HL,PTRBUF ; PREC=O 
46 LD (IY+$46) ‚L 
; GANZEN PRINTER BUFFER LÖSCHEN 
XOR A 
LD B,A 
CLRPRBE LD (HL),A ; NULL EINSCHREIBEN 
INC HL 
DINZ ELRPRB ; 255 MAL! 
b 
30 BE RES 1,(IY+$30) +; FLAGS2: ANMERKEN, DASS 


; PRINTERBUFFER LEER 
67 


BEEF DE 21 LD £,33 


ÖEFI C3 D? OD JP $DD9 

OEF4 

OEF4 s AUSGABE EINER DRUCKERZEILE (32 BYTES NADELGRAFIK) 
DEF4 s 

OEF4 78 PRLINE LD A,B ; MENGE DER NOCH ZU DRUCKENDEN 
DEFS ; NADELREIHEN 

BEFS FE 93 CP 3 

DEF7T _ 9F SEC A 

DEFB E& 02 AND 2 ı WENN NUR NOCH 2 ZEILEN ZU 
DEFA DS FB DUT ($FB),A ; DRUCKEN: PRINTERMDOTOR BREMSEN 
0EFC 57 LD D,A 

DEFD - 

OEFD CD 54 IF CALL $1F54 ; STOPTASTE PRÜFEN 

OFOD 38 0A JR C,$FOC 

OFO2 SE 04 LD A,4 ; ABSCHALTBIT FÜR PRINTER 

OFO4 DS FB DUT (#FB),A 

OFOÖ&b FB EI 

OFO7 CD DF OE CALL $EDF ; ELEAR PRINTER BUFFER 

OFOA CF RST ERRAUS ; MELDUNG: 

OFOB ÖL .EYT $£0C ; "BREAK - CONT REPEATS' 

OFOC ' 

OFÖOC DB FB IN A,($FB) ; STATUS DES DRUCKERS LADEN 
QFOE 87 ADD A ; BIT& MUSS NULL SEIN, SONST 
ÖFOF FB RET M ; IST KEIN DRUCKER DA 

OF10 30 EB JR NC,$#EFD ; WARTEN, WENN BIT7 NULL WAR. 
OF12 

OF12 ; ALLES ZUR AUSGABE BEREIT 

OF12 - 

OF12 OE 20 LD 6,32 ; 32 BYTES AUSGEBEN 

OF14 SE PRTEYT LD E,(HL) ; AUSZUGEBENDES BYTE LADEN 
OF15 28 INE HL 

DFi& 06 08 LD B,B 

OF1i8 CB 12 PRTBIT RL D ı BIT 7 VON PORT #FB IST DIE 
OFIA ; DRUCKERNADEL 

OFiA CB 13 RL E ı E WIRD BITWEISE AUSGEGEBEN 
OFIC CB 1A RR D ; D TRAGT DAS DRUCKBYTE 

OFIE - 

OFIE DB FB IN A,(#FB) 

OF20 IF RRA ; BIT 0 MELDET DRUCKER READY 
OF21 30 FB JR NC,$FIE 

QOF23 ; 

OF23 7A LD A,D 

ör24 3 FB QDUT ($FB),A ; HERAUS MIT DER EINEN NADEL 
OF2&4 10 FO DJNZ PRTBIT 

OF28 OD DEC C ;s NÄCHSTES DER 32 BYTES 

0F29 20 E9 JR NZ,PRTBYT 

OF2B C9 RET 

öF?C | SSSSSSSSSSSSSSSSSSSSSESSSSSSSSES SS 5E SS SSSESSESE 
OF2C ; 

OFZC ; EDITIEREN EINER BILDSCHIRMZEILE 

NF2C ; AUFRUF DURCH HAUFTROUTINE ZUM EINGEBEN EINER BASIC- 
OF2C ı ZEILE ODER BEI EINEM INPUTBEFEHL IN EINEM PROGRAMM 
OFZC j 

OF2C 2A 3D SC LD HL, (ERRSP) ; RETTE ERRORSTACKPOINTER 

OFZ2F ES PUSH HL 

DFSO 21 7F..10 LD HL,#107F ; RETURNADRESSE FüR EDITORERROR 
OF33 ES PUSH HL ; AUF STACK UND HIERFÜR 
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OF34 
OF3B 
OFSB 
OFSC 
OFSE 
OF41 
OF44 
OF47 
OF48 
OF4B 
ÖF4C 
OF4E 
OFSO 
OFS2 
OFS4 
OFS6 
OFS8 
OFSB 
OFS8 
OFSB 
OFSB 
OFSC 
OFSE 
OF&0 
ÖF&N 
OF&l 
OF65 
OF&8 
OF&8B 
OF&B 
OF&C 
OF&C 
OF&F 
ÜF7O 
OF73 
ÖF77 
ÖF7A 
DF7B 
OF7C 
OF7D 
OFTE 
OFF 
ÖFeBl 
OFB1 
OFeL 
OF8B1 
ÖFB1 
OFB5 
OFBB 
OFBR 
ÖFBE 
ÖFBD 
OF®1 
OF92 
OF92 
OF92 
OF92 
OF93 


af 
16 


OA 


00 


00 


37 TE 


: 07 86 


07 86 


. 
’ 


au 1a -—.- .. 


STEUERZEICHEN 


LD (ERRSP),SP 
CALL $15D4 
PUSH AF 

LD D,0 

LD E,(IY+$FF) 
LD HL,$CB 
CALL $3B5 
POP AF 

LD HL,$F3B 
PUSH HL 

CP $18 

JR NE,$FBI 

CP 7 

JR C,$F8i 

CP $10 

JR C,$F92 


LD BC,2 
LD D,A 
CP $i6 
JR C,$F6C 


INC BE 
BIT 7,(1Y+55) 
JP Z,$101E 


CALL $15D4 
LD E,A 


CALL $15D4 
PUSH DE 

LD HL,(KEUR) 
RES D,{IY+7) 
CALL $1655 
POF EC 

INC HL 

LD {HL),B 
INE HL 

LD (HLI,C 
JR $FEB 


RES 0,(IY+7) 
LD HL,(KLCUR) 
CALL $1452 
LD (DE),A 
INC DE 

LD (KCUR),DE 
RET 


"INK 


En NEE a TEE a NE a NEE u TEE a ER 


BIS 


Dr I Ze 7 zuzwr" 


DIESE ROUTINE FüßGT EIN 
INPUTZEILE HINZU 


; 
; 
3 
[3 
; 
\ 
[3 
} 
Li 
; 


DEN ERRORSTACKPOINTER SETZEN 
EIN ZEICHEN VDN DER TASTATUR 
HOLEN UND RETTEN 

DAUER DES TASTATUR-KLICKS 
HOLEN 

EBENFALLS DIE TONHÖHE 

UND ENTSPRECHEND FIEPEN 
ZEICHEN HOLEN 

STACK MIT &F38 

VORBESETZEN 

ALLE ZEICHEN, TOKENS UND 
GRAFIKZEICHEN ÜBERNEHMEN 
KOMMA EBENFALLS 


EDITORZEICHEN (DEL., CURSOR..) 
DANN SPRUNG 

"TAB' 
2 PLÄTZE BEI 'INK’ UND 'PAPER' 


KOFIE BES TASTENDRUCKS 


INK’ UND ’PAPER’ ? 
JA 
FüR ’AT’ UND ’TAB’ 3 PLÄTZE 


SPRUNG, WENN NICHT 
"INPUT LINE’ 


NÄCHSTES ZEICHEN HOLEN UND 
NACH E BRINGEN 


EIN WEITERES ZEICHEN FÜR 
STEUERCODES HOLEN, DE RETTEN 


"K'-MODUS SETZEN 

2 ODER 3 PLÄTZE BESORGEN 
STEUEREODDES KIEDER HOLEN 
UND SFEICHERN 


BEI 'INK' UND "PAPER’ WIRD DER 
ZWEITE WIEDER ÜBERSCHRIEBEN 


ZEICHEN ZU EINER EDITOR- ODER 


K-MODUS SETZEN 
LURSORFOSITION 

EIN SPEICHERPLATZ BESDRGEN 
ZEICHEN/CODE SFEICHERN 
CURSORPOSITIDON +1 UND 
SPEICHERN 

NORMAL IN DIE EDITORSCHLEIFE 


EDITIERSTEUERZEICHEN BEHANDELN 


CODE NACH DE 
BRINGEN 
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OF9S 
0F98 
OF 
DFIA 
öF9B 
DFSC 
OF®@F 
OFAO 
OFAU 
OFAO 
DFAO 
öFAL 
OFA2 
OFAZ 
OFAA4 
OFAS 
ÖFA& 
OFA7 
OFAB 
OFA9 
OFA? 
OFA9 
öFAI 
DFAC 
OFBO 
ÖFB3 
OFB& 
OFB9Y 
ÖFBA 
OFBB 
ÖFBE 
ÖFBF 
ÖFCO 
ÖFCI 
öFC2 
OFC3 
ÜFC6 
öFC7? 
OFCB 
OFC9 
ÖFCE 
ÖFGF 
öFD2 
ÖFD3 
OFD4 
OFD& 
OFD9Y 
OFDA 
OFDB 
ÖFDE 
ÖFDE 
OFEI 
OFE4 
ÖFE7 
OFEB 
ÖFE? 
OFEA 
ÖFEB 
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2: 32:0F 


SB 


49 


CB. 


97 
GE 


95 


77 


DA 


05 
97 
Sl 


FF 
01 


39 


39 


- 
De 


39 


JB 


Sc 


00 


1& 


oc 


GE 


eo. ME um 


LD HL,$F99 
ADB HL,DE 
LD E,(HL) 
ADD HL,DE 
PUSH HL 

LD HL,(KEUR) 
RET 


.BYT 
«BYT 
„BYT 
.BYT 
„BYT 
«BYT 
.BYT 
„BYT 
.BYT 


$09 
$66 
6A 
$50 
$B5 
£70 
$7E 
£CF 
£D4 


"EDIT-KEY’-ROUTINE 


LD HL,(EPPE) 
BIT 5, (1Y+55) 
JP NZ,$1097 
CALL $196E 
CALL $1695 
LD A,D 

OR E 

JP 2,$1097 
PUSH HL 

INC HL 

LD C,(HL) 
INC HL 

LD B,(HL) 

LD HL,10 
ADD HL,BC 
LD B,H 

Lu CL 

CALL $1F05 
CALL $1097 
LD HL, (CURCHL) 
EX (SP) ,HL 
PUSH HL 

LD A,$FF 
CALL $1601 
POP HL 

DEC HL 

DEC (IY+$F) 


CALL #1855 
INC (IY+#F) 
LD HL, (ELINE) 
INC HL 

INC HL 

INC HL 

INC HL 

LD (KCUR),HL 


“ 
’ 
. 
H 
3 
. 
; 
. 
’ 
. 
’ 
a 
’ 


a TEE a NEE en TE u ME 


0 ME EEE TE a EEE a TEE a NER a TEE a TEE an TEE an 


ADRESSE DER EDITORZEICHEN 
ADRESSE DES ZEICHENS BESTIMMEN 
UND DEN OFFSET NACH E LADEN 
DIE ROUTINENADRESSE BERECHNEN 
DIESE AUF DEN STACK SCHREIBEN, 
CURSDRABRESSE HOLEN 

IN DIE ROUTINE SPRINGEN 


’ 
OFFSET DER EDITORSTEUERZEICHEN 


EDIT 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
DELETE 
ENTER 
SYMBOL SHIFT 
GRAPHICS 


LINKS 
RECHTS 
NACH UNTEN 
NACH OBEN 


ZEILENNUMMER HOLEN 

SPRUNG, WENN IM 

“INPUT ’-MODUS 

STARTADRESSE DER ZEILE SUCHEN 
UND DIE ZEILENNUMMER DAZU 
ZEILENNUMMER = 0 ? 


NUR EBITORBEREICH LÖSCHEN 
ADRESSE DER ZEILE RETTEN 
DIE LÄNGE DER 

ZEILE HOLEN 


10 ZUR ZEILENLÄNGE ADDIEREN, 
UM FESTZUSTELLEN, OB NOCH 
GENUGEND PLATZ VORHANDEN IST 


SPEICHERPLATZTEST 
EDITORBEREICH LÖSCHEN 
AKTUELLE KANALADRESSE LADEN 
UND RETTEN, ADRESSE DER ZEILE 
HOLEN UND ZWISCHENSPEICHERN 
KANAL R öFFNEN, UM DIE ZEILE IN 
DEN EDITORBEREICH ZU KOPIEREN 
STARTADRESSE DER ZEILE 

UND UM 1 VERMINDERN 
ZEILENNUMMER -1, DAMIT KEIN 
CURSOR GEDRUCKT WIRD 
BASICZEILE LISTEN 
ZEILENNUMMER WIEDER NORMAL 
START DER ZEILE IM EDITOR- 
BEREICH HOLEN, ZEILENNUMMER 
UND LÄNGE üBERGEHEN, UM 


DIE ADRESSE FÜR 
KEUR ZU FINDEN 


OFEE Ei POP HL VORHERIGE KANALADRESSE 


, 
OFEF CD.15 16 CALL #1515 ; HOLEN UND DIE FLASS SETZEN 
OFF2 69 RET ;s RETURN NACH EDITORSCHLEIFE 
OFFS ‚END 
OFF3 «LIB SPEC1000-5 
ÖFF3 ; SINCLAIR ZX SPECTRUM TEIL 1000 
OFF3 : 
OFF3 ; CURSOR-DOWN-ROUTINE 
ÖFF3 ; 
OFF3 FD EB 37 BE BIT 5, (IY+#37) 5; INPUT MODUS ? 
ÖFF7 20 08 JR NZ,#1001 ı JA 
OFF9 21 49 SC LD HL.EPPE 
OFFC CD OF 19 CALL #190F ; NÄCHSTE ZEILENNUMMER SUCHEN 
ÖFFF 18 &D JR £106E : UND EIN LISTINGS AUSGEBEN 
1001 FD 35 00 10 LD {IY+0),16& ; ERRNR: STOP IN INPUT 
1005 18 1D JR $1024 
1007 ; 
1007 s CURSDR EINS NACH LINKS 
1007 ; 
1007 CD 31 10 CALL 1031 ; CURSDR BEWEGEN 
100A 18 05 JR SETKCU ; UND KCUR SETZEN 
10096 ; 
100C ;s CURSOR EINS NACH RECHTS 
ı109C ; 
100C 7E LD A, (HL)? ; AKTUELLES ZEICHEN AUF 
ı100D FE OD CF $D ; CARRIAGE RETURN PRÜFEN 
i00F CB RET Z ; JA: RETURN 
1010 23 INC HL ; SONST KCUR AUF NÄCHSTES 
1011 22 5B SC SETKCU LD (KCUR) ,HL ; ZEICHEN SETZEN 
1014 69 RET 
1015 ; 
1015 ;s LÖSCHEN EINES ZEICHENS BEIM EDITIEREN 
1015 : 
1015 CD 31 10 CALL #1031 ; CURSOR NAEH LINKS 
1018 01 01 00 LD BE,1 ; UND DAS ZEICHEN 
101B C3 EB 19 JP RAUS2 ; ENTFERNEN 
L01E ; 
10iE CD D4 15 CALL WARTA ; ZWEI ZEICHEN VON DER 
1021 CD D4 15 CALL KWARTA ; TASTATUR WEGWERFEN 
1024 5 
1024 Ei FOP HL  AUFRUF VON EDITOR UND 
1025 EI POP HL : EDITOR-ERROR WEGKWERFEN 
1026 Ei POP HL ;ı ALTEN WERT VON ERRSP 
1927 22 SD SC LD (ERRSP),HL ı WIEDER LADEN 
1ö2A FD CB 00 7E BIT 7,(IY+0) ; RETURN, FALLS KEIN 
102E CO RET NZ ; FEHLER AUFGETRETEN IST 
1IDZF F?3 LB: 6P,HL s SDNST SPRUNG IN 
1030 C9 RET ; ERRORRQOUTINE 
10531 ; 
1031 ı CURSOR NACH LINKS BIS MAXIMAL AN DEN ANFANG DER ZEILE 
1031 ; BEWEGEN. HL ZEIGT AUF CURSORPOSITION 
1051 - 
1051 37 SCF ı DE AUF ELINE (EDITIEREN) ODER 
1052 CR 75 1 CALL EDDE s AUF WORKSP (INPUT) SETZEN 
1035 ED 322 SEC HL,DE s CARRY WIRD GESETZT, FALLS DER 
1037 19 ADD HL,DE ; CURSDOR AM ANFANG DER ZEILE IST 
1038 23 INC HL 
10373 61 FOP BC ; EINMAL RETURNADRESSE WEGSWERFEN 
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103A 
103B 
105B 
103C 
103D 
LOSE 
103E 
103F 
10409 
1041 
1042 
1044 
10446 
1048 
1049 
104A 
104C 
L10Ö4E 
1050 
1051 
1052 
1054 
1055 
1056 
1058 
1059 
1059 
1059 
1059 
105D 
105E 
105E 
1061 
1064 
1065 
1068 
106B 
106E 
1071 
1073 
1076 
1076 
107A 
107C 
107C 
107F 
107F 
107F 
107F 
1085 
1085 
1089 
108B 
108E 
1091 
1094 
1097 
1097 
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Eb 


CB 


37 


OF 


6E 


’E 


66 


FF 


3 


, 


RETC 


PUSH BL 
LD B,H 
LD C,L 


LD H,D 
LD L,E 

INC HL 

LD A, (DE) 
AND $FO 

CP $10 

JR NZ,$1051 
INC HL 

LD A,(DE) 
SUB $17 

ADC © 

JR NZ,*1051 
INC HL 

AND A 

SBC HL,BC 
ADD HL,BE 
EX DE,HL 

JR C,$103E 
RET 


BIT 5,(IY+$37) 


RET NZ 


LD HL,(EPPC) 


CALL $196E 
EX DE,HL 
CALL ZSUCHE 


LD HL,EPPC+1 


CALL $191C 
CALL LISTAU 
LD A,O 

JP OPKAN 


BIT 7,{1Y+$37) 


JR 7,$1024 


JP $F8il 


BIT 4,(IY+48) 


JR 7,$1026 


LD (IY+0) ,$FF 


LD D,0 


LD E,(IY+$FE) 


LD HL,$1A90 
CALL #3B5 
JP $F30 


-—_ (108 an Ya 


u. —-—— a a a EEE u 


I Br un 2 2 


; FLAG: 


RETURN IN EDITORSCHLEIFE, WENN 
CURSOR AM ANFANG DER ZEILE IST 
RETURNADRESSE WIEDER SETZEN 
CURSDRADRESSE NACH BC 


ZEICHENADRESSE NACH HL 


+1 

ZEICHEN HOLEN 

ZEICHEN GRÖSSER #ür 

UND KLEINER #20 ? 

NEIN 

FüR FARAMETER +1 

NOCH MAL DAS ZEICHEN HOLEN 


$16 UND $17 ERGIBT HIER $00 


CARRY LÖSCHEN 


HL WIE VORHER 


CURSOR EINS NACH DBEN BEWEGEN 


INPUT MODUS ? 
JA 


AKTUELLE ZEILENNUMMER UND 

DIE STARTADRESSE HOLEN 

HL AUF EINE ZEILE DAVOR SETZEN 
UND DEREN ZEILENNUMMER HOLEN 


ZEILENNUMMER SPEICHERN UND 
EIN LISTING AUSGEBEN 
KANAL K WIEDER ERÖFFNEN 


FLAGX 
NUR BEI "INPUT LINE’ 
NICHT SPRINGEN 


EINSTIEG, WENN EIN FEHLER BEIM EDITIEREN AUFTRAT 


KANAL K ? 
NEIN 
FEHLERNUMMER LöSCHEN 


; EIN PIEPSER ALS 


} 
' 


: WARNUNG AUSGEBEN 


UND ZUM EDITOR ZURÜCK 


; 
; EDITORBEREICH DDER WORKSPACE LÖSCHEN 


1097 
1097 
1098 
109B 
109C 
109F 
10A2 
10A6 
10A7 
10AB 
10A8 
10A8 
10A8 
10AB 
10AB 
10AC 
10AF 
10B0 
10B4 
10B5 
10B5 
10B8 
10BC 
10BD 
10C1 
10C4 
10C5 
10C7 
10C9 
10C9 
10CB 
10CD 
10CD 
10CF 
10D1 
10Di 
10D2 
10D2 
10D4 
10D5 
10D& 
10D7 
10D9 
10DB 
10DB 
10DD 
i0EO 
10E2 
10E3 
10E4 
10E& 
10E6 
10E8 
10E9 
10EB 
10EE 
LöEF 
10F0 


9 
ES 


3B 
36 


01 


02 
11 


01 


sc 


01 


02 
0D 


SC 


Sc 


00 


JE 


6E 


ARE 


6E 


ASTIN 


} 
MODCAP 


s 
MODES 


WERTET 
DIREKT AUS 


PUSH HL 

CALL EDHLDE 
DEC HL 

CALL RAUSi 
LD (KCUR) „HL 
LD (IY+7),0 
POP HL 

RET 


BIT 3,{1Y+2) 


CALL NZ,$111iD 


AND A 
BIT 5, (IY+1) 
RET 


LD A,(LASTK) 
RES 5, (IY+1) 
PUSH AF 
BIT 5, (IY+2) 
CALL NZ,$D6E 
POP AF 
EP #* ° 
JR NC,$111B 


CP 
JR 


$10 
NC,£10FA 


CP & 

JR NC,MODCAP 
LD B,A 
AND 1 

LD C,A 
LD A,B 
RRA 

ADD $12 
JR $1105 


JR NZ,MODES 
LD HL,FLAGS2 
LD A,B 

XOR (HL) 

LD (HLI,A 

JR $10F4 


CP $E 

RETC 

SUB #D 

LD HL,MODE 
CP {HL) 

LD {HL),A 
JR NZ,$10F4 


—.— ME EEE EEE 


POINTER AUF FREIEN PLATZ RETTEN 
DE AUF ERSTES UND HL AUF 
LETZTES ZEICHEN SETZEN 
SPEICHER FREIGEBEN 
CURSORADRESSE UND 

MODUS 'K’ SETZEN 


DIESE ROUTINE HOLT DIE LETZTE GEDRÜUCKTE TASTE UND 
"CAPS LOCK’„ MODUSÄNDERUNG UND CDLDURPARAMETER 


BEI MODUSWECHSEL DIE EDITOR- 
ZEILE ANZEIGEN 

CARRY LÖSCHEN 

CARRY UND ZERD FLASS SIND 
GELÖSCHT, WENN KEINE TASTE 
GEDRÜCKT WURDE 

SONST TASTENENDE HOLEN UND 
DIESES VERMERKEN 

RETTE TASTE 

FALLS NOTIG, DEN UNTEREN 
TEIL DES BILDSCHIRMS LOSCHEN 
TASTE IN A ZURÜCK 

ALLE ASCII-ZEICHEN UND TOKENS 
ÜBERNEHMEN 


STEUERZEICHEN VON $10 BIS $iF 


"MODE’-ZEICHEN UND "CAPS ’-LOCK 


NUR FLASH, BRIGHT UND INVERSE 
CODES BEHANDELN 

BIT O0 FüR AUS (0) ODER EIN 
AUSBLENDEN UND IN C BRINGEN 
ZEICHEN WIEDER ZURÜCK 
TASTENEDDES FÜR FLASH IN #12, 
BRIGHT #13 UND INVERSE #14 
WANDELN 


(1) 


BEI 'MODE’-CODES 
NUR "CAPS’-LOCK BEHANDELN 
DAZU BIT 2 VON FLAGS2Z 


INVERTIEREN 


NUR $0E (SYMBOL SHIFT) UND OF 
(GRAPHIKS) WEITER, REST RETURN 


HAT DER MODUS SICH GEÄNDERT ? 
NEUEN MODUS MERKEN 
JA, VERÄNDERUNG 
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ı10F2 
löF2 
ı10F4 
10F8 
10F9 
10FA 
10FA 
10FB 
1OFD 
L10FE 
1100 
1102 
1104 
1105 
1108 
110B 
110D 
110D 
1110 
1113 
1113 
i1l1s 
1117 
1118 
1119 
111A 
111B 
ilıc 
i11D 
111D 
111D 
111D 
111D 
111D 
1120 
1124 
1128 
112B 
1126 
112F 
1130 
1133 
1134 
1158 
113B 
11SC 
113D 
1140 
1141 
1144 
1145 
1148 
i14B 
114C 
114D 
1150 
1150 
1150 
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00 
CB 


02 DE 


D3 
11 


36 
10 


sc 


OD 
02 
02 
Sc 
SC 
11 
3D 
sc 
11 
18 
18 
Sc 


oD 


gE 
AE 


Sc 


; 
TASTI2 


A u ae Tan 


LD (HL) ,O 
SET 3,(1Y+2) 
CP A 

RET 


LD B,A 

AND 7 

LD C,A 

LD A,$i0 

BIT 3,B 

IR NZ,$1105 
INC A 

LD (IY+$D3) ,C 
LD DE,TASTI2 
IR $1113 


LD 
LD 


A,(KDATA) 
DE,TASTIN 


LD HL, (CHANS) 
INC HL 

INC HL 

LD (HLI,E 
INC HL 

LD (HL),D 
SCF 

RET 


CALL AKTCOL 
RES 3, (IY+2) 
RES 5, (IY+2) 


LD HL, (SPOSNL) 


PUSH HL 

LD HL, (ERRSP) 
PUSH HL 

LD HL,EDERR 
PUSH HL 

LD (ERRSP) ‚SP 
LD HL, (ECHDE) 
PUSH HL 

SCF 

CALL EDDE 

EX DE,HL 

CALL $187D 

EX DE,HL 

CALL $1BE1 


LD HL,(SPOSNL) 


EX (SP) ,HL 
EX DE,HL 
CALL AKTCOL 


—.— En a 


—. HE an 


* 
; 
” 
; 
; 
” 
‚ 
” 
; 


SONST L-MODUS 
ANMERKEN: DER MODUS KANN SICH 
GEÄNDERT HABEN UND CARRY 
FüR RETURN LÖSCHEN 


NUR BIT 0 - 2 ZULASSEN 
UND IN EC BRINGEN 

CODE FüR 'INK' 

FALLS UNGESHIFTETER CODE, 


DANN NACH A DEN ’FAFER’-CODE 
PARAMETER SPEICHERN 
INPUT ÄNDERN 


NOCH EINE TASTE ALS PARAMETER 
HOLEN UND INPUT WIEDER NORMAL 


AKTUELLE KANALADRESSE 
UND AUF INPUT ZEIGEN LASSEN 


DEN NEUEN INPUT-EINSPRUNG 
SPEICHERN 


DIESE ROUTINE WIRD IMMER AUFGERUFEN, WENN DER 
EDITOR- ODER INPUTBEREICH IN DEN UNTEREN 
BILDSCHIRMTEIL GESCHRIEBEN WERDEN SOLL 


AKTUELLE FARBEN BLEIBEN 
KEINE MODE-ÄNDERUNG 

UNTEREN TEIL NICHT LÖSCHEN 
AKT. WERTE DES UNTEREN EILD- 
SCHIRMTEILS RETTEN 

DEN ERRORSTACKPOINTER 
ZWISCHENSPEICHERN, 

ALS FEHLERRETURNADRESSE 

AUF DEN STACK LEGEN UND 
STACKFOINTER HIERFÜR MERKEN 
ECHDE ZWISCHENSPEICHERN (END 
OF INPUT) 


DE AUF WORKSPACE SETZEN 
HL = ANFANG, DE = ENDE 
UND ZEILE AUSGEBEN 


CURSOR ANZEIGEN 

AKTUELLEN WERT SPOSNL MIT 
ECHDE AUSTAUSCHEN 

UND ECHOE NACH DE 


AKTUELLE FARBEN NOCH MAL SETZEN 


; 
; DEN REST EINER ZEILE MIT LEERZEICHEN FÜLLEN 


1150 
1153 
1154 
1156 
1158 
1159 
115C 
115E 
1180 
1161 
1164 
1165 
1167 
1167 
1167 
1167 
1169 
11&C 
11ö5F 
1172 
1176 
117A 
117C 
117C 
117C 
117C 
117C 
i17D 
117E 
i17F 
1182 
1183 
1124 
1187 
1188 
118B 
118F 
1190 
1190 
1190 
1190 
1199 
1193 
1194 
1195 
11977 
119D 
119E 
11A2 
11A5 
11A6 
11A7 
1147 
11A7 
11A7 
1147 
ı1AB 
11AA 


TE 


01 


61 


dE 
06 


sc 


30 


09 


Sc 


OD 


=15 


&l 


3 sc 


00 


FF 
SC 


00 


sc 
GE 


Sc 


RESTLE LD A,(SPOSNL+1) 
SUB D 
IR C,$117C 
JR NZ,RESTI 
LD A,E 
SUB (IY+$50) 
IR NC,$117C 
RESTI LD A,’ 
PUSH DE 
CALL $9F4 
POP DE 
JR RESTLE 


DERR LD D,0 
LD E,(IY+$FE) 
LD HL,$1A90 
CALL $3B5 
LD (IY+0) ,$FF 
LD DE, (SPOSNL) 
JR $117E 


INPUTZEILE 


.—._ a an 


POP DE 

POP HL 

POP HL 

LD {ERRSP) „HL 
POP BC 

PUSH DE 

CALL $DD9 

POP HL 

LD (ECHDE) ‚HL 
LD (IY+$26) ,0 
RET 


; 

} 

; 

’ 

EDHLDE LD HL, (NWORKSP) 
DEC HL 
AND A 


EDDE LD DE,(ELINE) 
BIT 5,tIY+$37) 
RET Z 
LD DE, (WORKSP) 
RETC 
LD HL, (STKBOT) 
RET 


I wn un un en 


OLFLO LD A,(HL) 
CP $E 
LD BC,6 


; 
" 
} 
” 
’ 
* 
; 


“ 
’ 
“ 
’ 


AKTUELLE BILDSCHIRMZEILE MIT 
DER ALTEN VERGLEICHEN 

KEINE LEERZEICHENAUSAGBE NOTIG 
NICHT DIE GLEICHE ZEILE 

VON DER ALTEN DIE NEUE SPALTEN- 
POSITION ABZIEHEN 

KEINE LEERZEICHEN ERFORDERLICH 
LEERZEICHEN LADEN 

POINTER ZWISCHENSPEICHERN 
AUSGABE 


UND WEITER 


FEHLERBEHANDLUNG IM EDITOR 


=RASP 


WARNPIEPSER AUSGEBEN 
ERRORNUMMER LöSCHEN 
AKTUELLEN WERT SPOSNL FüR 
ECHDE HOLEN 


NORMALER AUSSTIEG BEI AUSGABE DER EDITOR- ODER INPUT- 


NEUE POSITION FÜR ECHDE 
FEHLERADRESSE WEGWERFEN 

ALTEN ERRORSTACKPOINTER 
ZURÜCKHDLEN 

SPOSNL ALT HOLEN 

SPOSNL NEU MERKEN 
SYSTEMVARIABLE SETZEN 

SPOSNL NEU IN ECHDE SPEICHERN 


ERRORZEISER LÖSCHEN 


HL AUF DIE LETZTE POSTION, DE AUF DIE ERSTE ENTWEDER 
DES EDITORBEREICHS ODER DES WORKSPACEBEREICHS SETZEN 


ENDE EDITORBEREICH 
CARRY LöSCHEN 

ANFANG EDITORBEREICH 
EDITORMODE RETURN 


SONST DE AUF WORKSFACE 


HL EVENTUELL AUF STKBOT SETZEN 


ROUTINE HOLT DIE VERSTECKEN FLOATINGPFOINT-ZAHLEN 
EINER BASIC-ZEILE ZURÜCK 


IST DAS ZEICHEN EIN MERKER FüR 
EINE FLOATINGPOINT-ZAHL ? 
FALLS JA, DANN 4 FLÄTZE 
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11AD EC EB 19 CALL Z,RAUS2 BESCHAFFEN 


» 
i1B0O 7E LD A,(HL) : NOCH MAL HOLEN ZUR ÜBERPRÜFUNG 
11Bi 5. INC HL ;s BASICZEILENPOINTER +1 
11B2 FE OD CP $0D ; ENDE BEI CARRIAGE RETURN 
ı1B4 20 F JR NZ,HOLFLD 
1155 (97 RET 
1187 ; 
11B7 Eee 2 22222222222 2252202520202 52022202020 252 0222272022222 2222222222222 2022222020222 222222222 
11B7 - 
11B7 ES FOLGT DIE SYSTEMINITIALISIERUNG BEIM BEFEHL 
11B7 ; NEW’ ODER DURCH RESET BEIM EINSCHALTEN 
11B7 s UNTERSCHEIDUNG DURCH REB A: $FF = ’NEW' 
157 ; 
11B7 F3 NEW DI ; INTERRUFT SPERREN 
IiBBß 3E FF LD A,$FF ; NEW MERKEN 
11BA ED 5B B2 SC LD DE, (RAMTOP) ; DIE ALTE RAMOBERGRENZE MERKEN 
iiBE D? EXX ; ZWEITEN REGISTERSATZ LADEN 
11iBF ED 4B B4 SC LD BC, (PRAMT) s LETZTES SPEICHERBYTE 
1163 ED SB 38 SC LD DE, (RASFP) ; PIEPSLÄNGE EINER WARNUNG 
1167 2A 7B SC LD HL, (UD6) 
iiCcA D9 EXX 
11CB EEE Enz 2222222202202 25 2520252025252 2 525252252720 25 2202520272725 20 222020 2220222220222 222 02222 
11CB ; 
11CB ; RESETROUTINE MIT VORBEREITUNG ALLER PDOINTER NACH START 
t1CB 
i11CB EEE 22 2222222022020 02 0202222220 222222222222 20 2220222720 222202 220222222222 22 222220222222 222 222222222 
liCB 47 RESETI LD B,A ; ZWISCHENSPEICHERN 
iitE 3E 07 LDA,? ; BORDER COLOUR WEISS 
ICE D3 FE DUT ($FE),A ; SETZEN 
11DO 3E 53F LD A,$SF 
11D2 ED 47 LD I,A 
i11D4 00 NOP ; KURZE VERZÖGERUNG 
11D5 00 NOF 
11D& 00 NOP 
11D7 00 NOP 
i1D8 00 NDP 
11D9 00 NOP 
ilDA 62 LD H,D ; RAM-TEST: BEI NEW = RAMTOP 
i1DB &6B LD LsE s BEI RESET = $FFFF 
ilDE 36 02 LD (HL),2 ; DAS GESAMTE RAM 
1iDE 2B DEC HL ; OBERHALB VON #3FFF 
iiDF BC CP H ; MIT $02 BESCHREIBEN 
i1lEO 20 FA JR NZ,#11DC 
i11lE2 A7 RAMTES AND A ; CARRY LÖSCHEN 
1lE3 ED 52 SBC HL,DE ; BEIM LETZTEN SFEICHERPLATZ IST 
1165 19 ADD HL,DE ; CARRY GESETZT 
liE& 23 INC HL ; POINTER +1 
11E7 30 06 JR NC,RAMFER ; RAMENDE ERREICHT 
11E9 3 DEC (HL) ; SPEICHERPLATZ -1 ($01) 
iiEA 28 03 JR Z,RAMFER ; RAMERROR 
i1lEC 35 DEC (HL) ; SPEICHER -1 (#00) 
ilED 28 F3 JR Z,RAMTES ; ZELLE OK 
liEF - 
iiEF 28 RAMFER DEC HL ; ZEIGT AUF LETZTE RAMSTELLE 
i1F0O DP9 EXX s BEI 'NEW’: 
iiFi ED 43 B4 SC LD (PRAMT) ,BC ; SYSTEM VARIABLE SETZEN, 
i1F5 ED 53 38 SC LD (RASP),DE ; BEI RESET OHNE BEDEUTUNS 
ıi1lF9 22 7B Sc LD (UDG),HL 
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iiFtC 
iiFD 
LIFE 
1200 
1203 
1206 
1209 
120A 
120C 
120D 
120E 
1211 
1212 
1215 
1219 
121C 
121F 
1222 
1222 
1225 
1227 
1228 
1229 
122A 
122B 
122E 
1230 
1234 
1235 
1255 
1238 
123B 
123E 
1241 
1242 
1244 
1244 
1245 
1246 
1249 
124A 
124D 
1250 
1252 
1253 
1256 
1258 
1259 
125B 
125C 
125F 
1262 
1265 
1257 
126A 
126D 
1270 


1275 


Sc 
3E 


EXX 

INC B 

JR 2,SETTOP 
LD (PRAMT),HL 
LD DE,$ZEAF 
LD BC,$AB 
EX DE,HL 
LDDR 

EX DE,HL 
INC HL 

LD (UDG) „HL 


LD BC,$40 
LD (RASP) ‚BC 
LD (RAMTOP) ‚HL 


LD HL,CHARRD-255 ; 


LD {CHARS)I ,HL 


LD HL, {RAMTOP) 
LD (HL) ,$3E 
DEC HL 

LD SP,HL 

DEC HL 

DEC HL 

LD (ERRSP) „HL 
Im i 

LD IY,ERRNR 


'LD HL,KANMEM 


LD (CHANS) „HL 
LD DE,$ISAF 
LD BC,21 

EX DE,HL 

LDIR 


EX DE,HL 

DEC HL 

LD (DATADD) ‚HL 
INC HL 

LD (PROG) ‚HL 
LD (VARS) „HL 
LD (HL) ,$80 
INC HL 

LD (ELINE) „HL 
LD (HL) ,$D 

INC HL 

LD (HL) ,$BO 
INC HL 

LD (WORKSP) ‚HL 
LD (STKBOT) ‚HL 
LD (STKEND) ‚HL 
LD A,$38 

LD (ATTRP),A 
LD (ATTRT),A 
LD (BORDER) ,A 
LD HL,$523 

LD (REPDEL),HL 


; 


; 


a NE a EEE a EEE a EEE a 


-—-——_. A u A a A u a u TEE Tan -—-— A a 


. 


NORMALER REGISTERSATZ 


BEI ’NEW' 

BEI RESET LETZTES BYTE SETZEN 
LETZTES BYTE DES ZEICHENS ’U’ 
= 21 (BUCHSTABEN) * 8 BYTES 
21 BUCHSTABEN 

AN DIE RAMOBERGRENZE KOPIEREN 


ZEIGT AUF DEN ERSTEN KOPIERTEN 
BUCHSTABEN UND SPEICHERN 

-1 FÜR RAMTOP 

RASP (WARNTONLÄNGE) UND PIF 
(TASTATURKLICK) SETZEN 

FREIEN RAMBEREICH SETZEN 
VARIABLE CHARS SETZEN 


LETZTE RAMZELLE AUF $3E 
UND DIE VORLETZTE AUF 0 LASSEN 
STACKPOINTER SETZEN 


UND -2 ERGIBT 

ERROR STACKPOINTER 
INTERRUFTMODUS i 

IY BEHÄLT IMMER DIESEN WERT! 
INTERRUPT FüR TASTATURABFRAGE 
UND INTERNE UHR FREISEBEN 
BASISADRESSE FüR 
KANALINFORMATIDNEN 
GRUNDDATEN DER 
KANALINFORMATIDN AUS TABELLE 
LADEN 


DATADD AUF LETZTE ADRESSE 
DER KANALINFD SETZEN 

+1 ERGIBT ANFANGSWERT 

FüR PROGE UND VARS 


ENDEMARKIERUNG DER VARIABLEN 
+1 ERGIBT ANFANGSADRESSE 

FÜR ELINE UND DIESE STELLE 
MIT CR BESCHREIBEN (NULLZEILE) 


NOCH EINE ENDMARKIERUNG 

+1 ERGIET BASISADRESSE 

FÜR WORKSFACE, UNTERSRENZE 
DES CALCULATOR-STACK UND 
DES SPARE-SPACE 
EOLDUR-VARIABLEN AUF: 
FLASH O0, BRIGHT Ö 

PAPER 7 UND INK O0 SETZEN 


REPDEL INITIALISIEREN 


ij 


1275 
1279 
127C 
127 
1282 
1285 
1287 
12BB 
12BE 
1292 
1295 
1296 
1299 
129C 
12A0 
12A2 
12A2 
1242 
1242 
12A2 
i2A2 
12A& 
12A6 
12A9 
ı12AC 
12AC 
12AE 
12EB1 
12B4 
12B4 
12B7 
i2BB 
12BD 
12C1 
1265 
12C5 
12C9 
12CD 
12CF 
12CF 
12CF 
12D2 
12D5 
12D8 
12D9 
12DA 
12DD 
12DD 
12DE 
12E0O 
12E2 
12E6 
12E9 
12EC 
1 2EE 
i2Fi 
12F4 
12F8 
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CE 


31 02 


EE 


31 02 


7E 


66 


FF 


46 


| ee ee me me Am Me Mi Me me mm Mi Mk A Mu ib Mm a A A MM Mk A m Mu Mh Mk A a A A Mb am A a a a Mm A 


DEC (IY+$06) 
DEC {IY+SCA) 
LD HL,$1506 
LD DE,STRMS 
LD BE,$E 

LDIR 

SET 1,(IY+1) 
CALL $EDF 

LD (IY+$31),2 
CALL $D6B 

XOR A 

LD DE,$1538 
CALL $C0A 

SET 5, (1Y+2) 
IR $1249 


Aa Er TEE un 


KSTATE O UND 4 AUF 
KEINE NEUE TASTE SETZEN 
ANFANGSWERTE DER 
DFFENEN KANÄLE 

AUS TABELLLE KOPIEREN 


PRINTER FLAG 

PRINTER-BUFFER LöOSCHEN 
UNTEREN TEIL DES BILDSCHIRMS 
SETZEN UND KOMPLETT LÖSCHEN 


AUSGABE DES COPY-RIGHT 
STATEMENTS 

MERKER: UNTEREN BILDSCHRIRMTEIL 
LÖSCHEN UND IN DEN INTERPRETER 


; HAUPTSCHLEIFE DES AUSFÜHRUNGSPROGRAMMS 


j 
HAUPT 


HAUEDI 


; 
KORRIN 


LD (IY+$31),2 


CALL LISTAU 
CALL $15&B0 


LD A,0 
CALL OPKAN 
CALL $F2C 


CALL $1B17 
BIT 7,{1Y+0) 
IR NZ,KORRIN 
BIT 4, (IY+48) 
JR 7,$1303 

LD HL,(ELINE) 
CALL HOLFLO 
LD (IY+0) ,$FF 
JR HAUEDI 


LD HL,(ELINE) 
LD (ECHADD) „HL 
CALL $19FB 

LD A,B 

OR C 

JP NZ,$155D 


RST GBETAKT 

CP $D 

JR Z,HAUPT 
BIT O,(IY+48) 
CALL NZ,$DAF 
CALL $D6E 

LD A,$19 

SUB (IY+$4F) 
LD 4SCRCT),A 
SET 7,(1Y+1) 
LD (IY+0) ,$FF 


a. —. ME u 


NEE ae EEE a 


UNTERER BILDSCHIRMTEIL AUF 
ZWEI ZEILEN SETZEN 

LISTING AUSGEBEN 

EDITOR, WORKSPACE UND 
CALC,-STACK LÖSCHEN 

KANAL 0 ERGFFNEN VOR EINSPRUNG 
IN DEN EDITOR 

EDITORAUFRUF ZUM EINGEBEN 
EINER ZEILE 

UND AUF SYNTAXFEHLER PRÜFEN 


KEIN SYNTAXFEHLER 

FALLS EIN ANDERER KANAL 

ALS 'K’ BENUTZT WURDE, SPRUNG 
HL ZEIGT AUF ANFANG DER ZEILE 


ERRORNUMMER LöSCHEN 
UND OHNE DAS LISTING ZU ÄNDERN 
WIEDER IN DEN EDITOR 


ANFANG DER KORREKTEN ZEILE 
NACH CHADD 
ZEILENNUMMER IN 'BC' HOLEN 


ZEILENNUMMER IN ORDNUNG ? 
JA: IN DAS PROGRAMM EINFÜGEN 


IST DAS ERSTE ZEICHEN 

DER ZEILE EIN ER ? 

JA 

FALLS NOTIGE, DEN GANZEN 
BILDSCHIRM LöÖSCHEN 

UNTEREN TEIL IMMER LOSCHEN 
SCROLLING-ZÄHLER SETZEN 


ANMERKEN: ZEILE AUSFÜHREN 
ERRORNUMMER LOSCHEN 


LZFE 
1300 
1303 
1305 
1303 
1303 
1303 
1303 
1304 
1308 
1306 
130F 
1312 
13513 
1314 
1317 
151A 
131D 
1320 
1325 
1326 
1329 
1329 
132D 
1330 
1534 
1335 
1336 
1338 
135A 
133C 
135F 
1341 
1342 
1343 
1346 
1349 
154A 
134D 
1350 
1354 
1357 
1359 
135A 
135D 
135F 
1362 
1565 
1368 
1369 
136B 
136D 
136F 
1571 
1373 
1376 
1376 
1379 


FD > 


CD 


BA 


OA 
iB 


15 


OD 


00 
Sc 


01 


AE 
4E 


AE 


EE 


sc 


-—-—0 ME a YA 


ERRAU 


LD {IY+$A) ‚1 
CALL $1BBA 


HALT 
RES 5, {1Y+1) 


BIT 1,(IY+48) 


CALL NZ,$ECD 
LD A,(ERRNR) 
INC A 


HL,O 


(1IY+$37) ,H 
(IY+$26) ,H 
(DEFADD) ‚HL 
HL,1 
(STRMS+6&) „HL 


CALL #1&B0 


RES 5, (1Y+$37) 


CALL $D&E 
SET 5,(IY+2) 
POP AF 

LD B,A 

CP $A 

JR C,ERRAU 
ADD 7 

CALL $iSEF 
LD A,#' 
RST PRTOUT 
LD A,B 

LD DE,MELDU 
CALL $COA 
XOR A 

LD DE,$1536 
CALL $C0A 
LD BC, (PPC) 
CALL $1A1B 
LD A,k’:' 
RST PRTOUT 
LD C,(IY+$D) 
LD B,O 

CALL $1A1B 
CALL $1097 
LD A,(ERRNR) 
INC A 

JR 2,$1385 
CP 9 

JR 2,$1373 
CP $15 

JR NZ,$137& 
INC (IY+$D) 


LD BC,3 
LD DE,OSPCE 


u EEE u NE 


u Eee 


u ET 


UND DIE ZEILE INTERPRETIEREN 


RüCKKEHR NACH AUSFÜHRUNG DER ZEILE BZW. PROGRAMM 
AN DIESE STELLE ZUR AUSGABE EINER MELDUNG 
DER INTERRUPT MUSS FREIGEGEBEN SEIN ! 


BEREIT FüR EINE NEUE TASTE 
DEN EVTL. BENUTZTEN 
PRINTERBUFFER LöSCHEN 
ERRORNUMMER HOLEN 


UND RETTEN 
DIE VARIABLEN FLAGX, XFTR 
UND DEFADD AUF NULL SETZEN 


ARBEITSSPEICHER UND CALCULATOR- 
STACK RÜUCKSETZEN 

EDITOR-MODUS EIN 

UNTEREN BILDSCHIRM LÖSCHEN 

UND FLAG ZUM LÖSCHEN SETZEN 
ERRORNUMMER KIEDER HOLEN 


ERRORNUMMERN 0-9 ? 

JA 

OFFSET ADDIEREN 

AUSGABE DER ERRORNUMMER 
UND EINEN SPACE ZUSÄTZLICH 


NUMMER WIEDER HOLEN, 
LADEN DER TABELLENADRESSE DER 
(ERROR-)MELDUNGEN UND AUSGABE 


ZUSÄTZLICH KOMMA 

UND SPACE AUSGERBEN 

AKTUELLE ZEILENNUMMER HOLEN 
UND AUSGEBEN 

DOPPELPUNKT DANACH 


AKTUELLE STATEMENTNUMMER 
IN BC HOLEN 

UND AUSGABE DES STATEMENTS 
EDITOR-SPEICHER LÖSCHEN 
ERRORNUMMER HOLEN 


KEIN ERROR: NORMALES ENDE 
STOP-BEFEHL ? 

JA 

BREAKSTATEMENT ? 

NEIN 

SONST NACH 'CONT’-EINGABE AB 
NACHSTEM BEFEHL FORTFAHREN 
DLDPFC UND OSPEC MÜSSEN FÜR 
"CONT' GESETZT WERDEN 
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137C 
137F 
1381 
1381 
1383 
1393 
1384 
1386 
13BA 
13BE 
1391 
15391 
1391 
1391 
1391 
1391 
1391 
1391 
1392 
1393 
1394 
13A3 
13A4 
13B5 
15Bö5 
13C4 
13C5 
13D1 
15D2 
13DE 
i5DF 
13EC 
13ED 
1400 
1401 
140B 
140C 
1419 
141A 
1429 
142A 
143D 
143E 
144E 
144F 
1462 
1463 
14&D 
146E 
147E 
1A47F 
14BE 
148F 
149B 
149C 
14AB 
14AC 
14BD 


80 


44 
TE 


ol 


BS 
36 
CR 
Ac 


Sc 


OA FF 
di 9E 
12 


LD HL,NSPPC 


BIT 7, (HL) ; ERFOLSTE "BREAK’ DIREKT NACH 
; EINEM SPRUNGBEFEHL? 
IR 2,$1394 ; JA, DANN NEWPPC UND NSPPE 
; NEHMEN 
ADD HL,BC ‚ SONST PPC UND SUBPPE 
LDDR 
LD (IY+$A),$FF 5; NSPPC LÖSCHEN: KEIN SPRUNG 
RES 3,{1Y+1) ; FLABS: K-MODUS SETZEN 
JP HAUEDI ; ZURÜCK IN DIE HAUPTSCHLEIFE 
‚END 


‚LIB SFECI4ÖN-S 
SINCLAIR ZX SPECTRUM TEIL 1400 


; 
; MELDUNGEN BES BETRIEBSSYSTEMS 
; DAS LETZTE BYTE EINER MELDUNG IST MIT $80 GEDDERT 


; 
MELDU 
MELDO 


MELDI 
MELD2 
MELD3 
MELD4 
MELDS 
MELD& 
MELD7 
MELDE 
MELD? 
MELDA 
MELDE 
MELDE 
MELDD 
MELDE 
MELDF 
MELDE 
MELDH 
MELDI 


MELDJ 


‚EYT #80 ; WIRD üBERSFRUNGEN 


‚BYT 


„BYT 


. BYT 


"n’,#CB ; DK 

"NEXT without FO'‘,$D2 
‘Variable not foun’,$E4 
"Subscript wron’,$E7 

'Dut of memor’',$#F9 

"Dut of scree’,$EE 
‘Number too bi ',$E7? 
"RETURN without GOSU’,$#C2 
"End of fil',$ES 

STOP statemen',$rF4 
"Invalid argumen’',$Fä 
"Integer nut of rang ',$ES 
"Nonsense in BASI’,$C3 
"BREAK - CONT repeat’',$F3 
"Qut of DAT’,$CI 

"Invalid file nam’,$ES 
"No room for lin',$ES 
"STOP in INPU’,$D4 

"FOR without NEX’,$*D4 


"Invalid 1/0 devic’,$Es 


14BE 
14CB 
L4cc 
14DD 
14DE 
i4EB 
I4EC 
14F9 
14FA 
1507 
1508 
1515 
1516 
1524 
1525 
1536 
1537 
1538 
1539 
153A 
1554 
1555 
1559 
15957 
155A 
155D 
155D 
155D 
155D 
155D 
155D 
155D 
1561 
1564 
1585 
1568 
1569 
1565C 
156D 
1S6F 
1570 
1571 
1572 
1575 
1577 
157A 
157D 
157D 
1S7E 
157F 
1580 
1581 
1583 
1593 
1583 
1584 
1585 
15858 


28 


00 


19 


19 
19 


MELDK BYT "Invalid colou’',$F2 
MELDL BYT "BREAK into progra’,$ED 
MELDM EYT "RAMTOP no goo’,$E4 
MELDN .„BYT "Statement los’,$F4 
MELDO .BYT "Invalid strea’,#ED 
MELDP .BYT 'FN without DE’,$C5 
MELD@Q .BYT "Parameter erro’,$F2 
MELDR ‚BYT ‘Tape loading erro',#F2 
MELDS .BYT $2C,$A0 vr. 
COPRIG .BYT $7F,' 1982 Sinclair Research Lt ',$E4 
; 
NORDOM LD A,$10 ; MELDUNG '5' 
LD BE,O ; BC LÖSCHEN 
JP $1313 


-— ae A 


SC EINFUE LD {EPPC) „BC ; 


; 
EINFUI 


LD HL, 
EX DE, 
LD HL, 
PUSH H 
LD HL, 
SCF 

SBE HL 
PUSH H 
LD H,B 
LD L,C 
CALL $ 
JR NZ, 
CALL $ 
CALL R 


POP BC 
LD A,c 
DEC A 
OR EB 
IR Z,$ 


PUSH B 
INC BC 
INC BC 
INC EC 


(CHADDI 5; 
HL 

NOROOM ; 
L 
(WORKSP) 


‚DE 
L 


196E 
EINFUI 
ı9B8 
AUS2 


15AB 5 


C 


—.— EEE a 


EINE NEUE BASIC-ZEILE INS PROGRAMM EINFÜGEN 

WENN DIE ZEILE SCHON EXISTIERT, DANN ERSETZEN ODER, 
FALLS NUR EINE ZEILENNUMMER EINGEGEBEN WURDE, 

DIESE ZEILE LÖSCHEN 


NEUE ZEILE ZUR AKTUELLEN MACHEN 
CHADD IN EC ERINGEN 


ADRESSE DER MELDUNG AUF STACK 


LÄNGE DER NEUEN ZEILE AR ZEI- 
LENNUMMER BIS EINSCHLIESSLICH 
CARRIAGE RETURN BERECHNEN 

UND ZWISCHENSPEICHERN 
ZEILENNUMER INS HL REG 

UM ÜBERPRÜFEN ZU KONNEN, OB 
DIESE ZEILE SCHON EXISTIERT 
NICHT VORHANDEN: NUR EINFÜGEN 
LÄNGE DER ALTEN ZEILE BERECHNEN 
UND ENTFERNEN 


LÄNGE DER NEUEN ZEILE HOLEN 
UND AUF "NULL’-LÄNGE (DHNE CR) 
FRÜFEN: 


JA: ZEILE NUR ENTFERNEN, 
NICHTS EINFÜGEN 


LÄNSE NEU RETTEN 

4 ADDIEREN, UM DIE 
ZEILENNUMMER UND DIE 
LANGE MIT BER ZEILE 
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1587 
1588 
1589 
1589 
158D 
15BE 
1591 
1592 
1595 
15976 
1597 
1598 
15978 
157B 
159C 
159D 
1597F 
15A2 
15A3 
15A4 
15A5 
15A& 
1547 
15AB 
1549 
15AA 
15AB 
15AC 
i5AF 
i5AF 
ISAF 
i5AF 
15AF 
15AF 
1SAF 
I5SAF 
15B0 
15B1 
15B2 
15B3 
15B4 
15B5 
15B5 
15B8 
15B9 
15BA 
15BB 
15SED 
iSBE 
ISBF 
15C0 
1562 
1565 
1504 
15C4 
15C5 
15C6 
15C5 
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SB 


39 


61. 


B8 
49 


> A2 


15 


15 


935 SC 


Sc 


12 


A TEE a NEE u a 


INC BE 
DEC HL 


LD DE,(PROS) 
PUSH DE 

CALL MACHPL 
POP HL 

LD {PROG) ‚HL 
POP EC 

PUSH BL 

INC DE 


u ME 


bj 
LD HL,(WORKSP)  ; 
DEC HL ; 
DEC HL ; 
LDDR 
LD HL,{EPPO) ; 
EX DE,HL ; 
Por BC ; 
LD (HLI,B f 
DEC HL ’ 
LD (HLI,C ; 
DEC HL 
LD (HLI,E ; 
DEC HL 
LD {HL),D ; 
POP AF f 
IP HAUPT ' 


KANALINFORMATIONEN ZUM 
E 


5 
R 
P PRINTER (DRUCKER) 


NIEAN „BYT $F4,$09 ; 


‚BYT $AB,$10 


BT Re 
„BYT $F4,809 5; 


.WOR INVIO 
„BYT ’S° 
„BYT $B1,$0F ; 


.WOR INVIO 
„BYT 'R' 
„BYT $F4,$09 ; 


.WOR INVIO 
P 2 4 u de 
.BYT $80 


; 
INVIOQ RST ERRAUS ; 


; 


„BYT $12 ; 


3 
; STREAM DATEN 


KEYBOARD (TASTATUR) 
SCREEN (BILDSCHIRM) 
WORKSPACE (ARBEITSSPEICHER) 


ABSPEICHERN ZU KÖNNEN 
ZEIGT AUF EIN BYTE VOR DER 
EINZUFÜUGENDEN STELLE 
ZWISCHENSPEICHERN 


PLATZ FÜR NEUE ZEILE SCHAFFEN 
UND PROG WIEDER 

AUF ALTEN WERT SETZEN 
ZEILENLÄNGE IN BC HOLEN 


DE ZEIST AUF DAS ENDE DES 


; FREIGEMACHTEN SPEICHERS 
;ı HL AUF ENDE 


; DER EINZUFUGENDE ZEILE SETZEN 
; UND DIE NEUE ZEILE EINSPEICHERN 


ZEILENNUMMER HOLEN 


; UND NACH DE ERINGEN 
; LÄNGE WIEDER HOLEN 


DIESE FARAMETER 


: VOR DIE EINGEBAUTE 


ZEILE EINFÜGEN 

ZEILENNUMMER LOW 

ZEILENNUMMER HIGH 

ADRESSE DER NORODM-MELDUNG VER- 
NICHTEN UND LISTING AUSGEBEN 


INITIALISIEREN 


NORMALE AUSSABE 


TASTATUR-INPUT 


NORMALE AUSGABE 


ADDIERE ZEICHEN 


NORMALE AUSGABE 


FEHLERMELDUNG: 
"INVALID 1/0 


15C5 
1565 
1567 
15C8 
15C9 
15CA 
ISCR 
15CC 
15CD 
ISCE 
iScF 
15D0 
15D1 
15D2 
15D3 
15D4 
15D4 
15D4 
15D4 
i15D4 
15D8 
15DA 
15DE 
1SEi 
15E2 
15E4 
I5SE4 
15E5 
i5E& 
ISEA 
15E& 
15E6 
15E7 
15E8 
1SEB 
1SEC 
1SED 
isEF 
ISEF 
I5EF 
15EF 
1SEF 
15Fl 
1SF2 
15F3 
i15F4 
15F7 
15F7 
15F7 
15F7 
15F7 
15F7 
1SF8 
15F9 
15FA 
ISFB 
15SFE 
15SFF 


GE 


DE 


sl 56 


öB 


31 St 


26 16 


STDATA .BYT 


$01,$00 ; $FD ERGIBT KANAL K 
„BYT $06,$00 s$FE " : 
„BYT $0B,$00 FF Oo" "OR 
„BYT $01,$00 500" 0" K 
BYT. $01,$00 a 1,6 "oc 
„BYT $05,$00 502 "08 
„BYT $10,$00 803 "op 
; 
; DIESE SUBROUTINE ÜBERWACHT DEN AUFRUF DER AKTUELLEN 
; INPUT-SUBROUTINE 
; 
WARTA BIT 5,(1Y+2) UNTEREN BILDSCHIRMTEIL 
JR NZ,$15DE ; NICHT LöSCHEN 
SET 3, (IY+2) ; SONST MODUSWECHSEL ANMERKEN 
CALL #15E6 ; INPUTROUTINE AUFRUFEN 
RET C ; ALLES IN ORDNUNG 
JR 2Z,*15DE ; KEINE TASTE: ZERO UND CARRY 
; GELÖSCHT 
RST ERRAUS ; SONST ERRORMELDUNG: 
„BYT $07 ; "END OF FILE’ 


i 
; INPUTROUTINE FüR DEN GERADE AKTUELLEN FILE 


EXX ; REGISTER RETTEN 
PUSH HL 
LD HL, (£EURCHL) 3; ANFANGSADRESSE DER AKTUELLEN 
INC HL ; KANALINFORMATIDN HOLEN UND 2 
INC HL ; ADDIEREN, UM DIE INPUTADRESSE 
JR INDCAL ; HOLEN ZU KÖNNEN 

; ALLGEMEINE AUSGABERDUTINE 

; AUSGA2 MIT AUSZUGEBENDEM ZEICHEN IN RES A 

’ 

AUSGAI LD E,$#30 ı #50 ZU A ADDIEREN 
ADD E 

AUSGAZ EXX ; REGISTER RETTEN 
FUSH HL 


LD HL, {CURCHL) 5; ANFANGSADRESSE DER KANALINFD 
DIE AKTUELLE AUSGABE- ODER EINGABERDUTINE AUFRUFEN 

HL ZEIGT AUF DIE ADRESSE, AN DER DIE SFRUNGADRESSE 

ZU FINDEN IST 


Bin EEE un TA ae 


DIE RICHTIGE 
; ADRESSE IN DE LADEN 


NDEAL LD E,(HL) 
INC HL 


’ 

’ 
LD D, (HL) UND FÜR INDIREKTEN 
EX DE,HL ; SPRUNG IN HL BRINGEN 
CALL INDJMP 
POF HL ; REGISTER ZURÖCKHOLEN 
EXKX 
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1500 
1601 
1601 
1601 
1601 
1601 
1501 
1502 
1504 
1505 
1507 
1&08 
1509 
1&0A 
1&0B 
1&0C 
1&0E 
l&0E 
1&0F 
1510 
1810 
1811 
1514 
1515 
1518 
1dic 
151D 
isiE 
1&1F 
1520 
1621 
1524 
152 

1628 
162A 
162B 
152C 
1&2D 
152D 
l&2E 
Is2rF 
1630 
1631 
1632 
1533 
1534 
1634 
15538 
1530 
1540 
1642 
16442 
1645 
1544 
164D 
164D 
1651 
1652 
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L? 


1& 


Mr. 


Ei 
Wi Ju 


16 
16 


Ad 


2 66 


RE 


30 Ed 


86 
BE 


CE 


; ROUTINE, 


RET 


UM EINEN KANAL ZU ERÖFFNEN 


; A ENTHÄLT GÜLTIGE "STREAM’-NUMMER UND DER 
ı ENTSPRECHENDE KANAL WIRD ERÖFFNET 


} 
OPEAN 


INDJMP 


KLOOK 


; 
KANALK 


3 
KANALS 
KANSI 


; 
KANALP 


ADD A 

ABD $14 

iD L,A 

LB H,$856 

LD E,{HL) 
INC HL 

LDB D, (HL) 
LD A,D 

OR E 

IR NZ, 1810 


RST ERRAUS 
‚BYT $17 


DEC DE 
LDB HL, (CHANS) 
ADD HL,DE 


LD (CURCHLI „HL 


RES 4, (1Y+48) 
INC HL 

INC HL 

INE HL 

INC HL 

td 5; 1 
LD HL,KLOOK 
CALL SUCHTA 
RET NE 

LD D,0 

LD E, (HL) 
ABD HL,DE 
IP HL) 


‚BYT OÖ 


SET 0,{1Y+2) 
RES 5,(1Y+1) 
SET 4,(1Y+48) 
IR KANSI 


RES 0,(1Y+2) 
RES i,tIY+1) 
JP $D4D 


SET 1,t1Y+1) 
RET 


MIT 2 MULTIPLIZIEREN 

#16 ALS BASIS ADDIEREN 

UND ALS LOW-ADRESSE IN L 

H MIT #306 LADEN {=#5Clöff) 
DIE ZWEI EYTES FüR DEN 
AKTUELLEN "STREAM" HOLEN 


UND AUF NULL FRÜUFEN 


FALLS NULL: 
"INVALID STREAM 


STREAMDATA -i 

POINTER FÜR KANALDATEN 

DIE BENOTIGTE BÄSISADRESSE 
IN HL BILDEN UND SFEICHERN 
NICHT KANAL ’K' 

HL +4, UM DEN KANALCDDE 


HOLEN ZU KONNEN 
TABELLENADRESSE LADEN 

UND IN DER TABELLE SUCHEN 
NICHT SEFUNDEN: RETURN 
SONST OFFSET IN DE BRINGEN 


; UND ZU HL ALS 


INDIREKTE SFRUNGADRESE ADDIEREN 


K UND OFFSET & = #1534 
S UND OFFSET 18 = $1542 
P UND OFFSET 27 = $1654D 


UNTERER BILDSCHIRMTEIL 
FERTIG FüR EINE TASTE 
KANAL K WIRD BENUTZT 


GANZER BILDSCHIRM 
PRINTER NICHT IN BENUTZUNG 


PRINTER WIRD BENUTZT 


1652 
1652 
1552 
1652 
1652 
1652 
1553 
1555 
1659 
165A 
155D 
1550 
1661 
1663 
1664 
1664 
1664 
1664 
1664 
1664 
1654 
1664 
1565 
1666 
1669 
16AB 
166B 
166C 
1&&D 
165E 
166F 
1&6F 
1670 
1672 
1673 
1673 
1674 
1676 
1677 
1678 
1579 
157A 
167B 
187C 
167D 
157E 
167F 
1680 
1581 
1683 
1683 
1684 
1685 
1685 
1687 
1589 
168A 
158B 


4B 
oE 


09 


> E8 


00 


IF 


16 
Sc 


oc 


ı DIESE ROUTINE SCHAFFT EINEN BENOTIGTEN SPEICHERRAUM, 
; DIE BYTEZAHL MUSS IN BE ÜBERGEBEN WERDEN UND 

; HL ZEIGT BIREKT HINTER BIE SPEICHERPOSITIDON, 

; AN DER PLATZ BENSTIGT WIRD 


5 
NUREIN 


LD BE,1 


MACHPL PUSH HL 


TI an un un u Ta ee 


DINTE 


; 
POINTL 


NDOCHA 


ZEIGEN 
SOLL. 


CALL #1F05 
POP HL 
CALL $16564 


LD HL, (STKEND) 


EX DE,HL 
LDDR 
RET 


EINSPRUNG FüR EIN BYTE 

RETTE DEN FOINTER 

TEST, OB GENUGEND SPEICHER DA 
FOINTER ZURÜCK 

BETROFFENE PDINTER KORRIGIEREN 
NEUES STKEND IN HL 

AUSTAUSCH FOINTER ALT UND NEU 
UND PLATZ SCHAFFEN 

HL ZEIET AUF "ANFANG-1” UND 

DE AUF DEN LETZTEN FREIEN PLATZ 


DIESE SUBRUOUTINE VERÄNDERT ALLE SYSTEMVARIABLEN 
(PDINTER), DIE AUF POSITIONEN HINTER DEM SPEICHERFLATZ 
{=HL), AN DEM PLATZ ETC. GESCHAFFEN WERDEN 


BCE MUSS DIE ANZAHL DER BYTES ENTHALTEN 


PUSH AF 
PUSH HL 
LD HL,VARS 
LD A,14 


LD E, (HL) 
INC HL 

LD D,CHL) 
EX {SP} ,HL 


AND A 
SBC HL,DE 
ADD HL,DE 


EX (SP) ,HL 
JR NC,NOCHA 
PUSH DE 

EX DE,HL 
ADD HL,EC 
EX DE,HL 

LD (HLI,D 
DEC HL 

LD (HLI,E 
INC HL 

POP BE 

INC HL 

DEC A 

IR NZ,PDINTL 


EX DE,HL 
POP DE 
POP AF 
AND A 
SEE HL,DE 
LB B,H 
Lo &,L 
INC BE 


..: U u 


“.-_ | . 


REGISTER UND 

STARTFOSITION RETTEN 

ADRESSE DER ERSTEN 

DER 14 SYSTEMVARIABLE N LADEN 


ADRESSIERTEN 
POINTER IN REG DE LADEN 


ZEIGER AB WO UND ZEIGER AUF DIE 
ZU PRuFENDE VARIABLE TAUSCHEN 
CARRY LOSCHEN 

CARRY WIRD GESETZT, FALLS DIE 
SYSTEMVARIABLE GEÄNDERT 

WERDEN MUSS 

ZEIGERTAUSCH 

NICHT ÄNDERN 

ALTEN WERT RETTEN 


BC ZUM ALTEN WERT ADDIEREN 
UND DEN NELEN WERT 
ABSPEICHERN 


ALTER WERT ZURÜCK 


ALLE VARIABLEN BEARBEITET ? 
NEIN WEITER 


ALTER WERT VON STKEND 
REGISTER ZURGCKHOLEN 


DIFFERENCE ZWISCHEN STEEND 


“ALT” UND BEM "FLATZ’ BERECHNEN 
NACH BC ERINGEN UND 
i ADDIEREN 
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168C 19 ADD HL,DE ; STKEND ALT WIEDER HERSTELLEN 


158D EB EX DE,HL ; UND NACH DE BRINGEN 

1ö8E CC? RET 

iöBF ; 

158F ; HOLEN DER NUMMER DER ZEILE, DIE DURCH HL ADRESSIERT 
i&8F ; WIRD. FALLS UNGÜLTIG, TEST OB DE AUF EINE GÜLTIGE 
168F s NUMMER ZEIGT. TRIFFT DIES AUCH NICHT ZU, 50 WIRD 
168F ; 0000 ALS ZEILENNUMMER IN DE GELADEN {NUMMER <1i0000). 
1ö8F s NORMALERWEISE ENTHÄLT DE DIE ZEILENNUMER UND HL 
1ä8F ; DIE STARTADRESSE DIESER ZEILE BEI RETURN 

168F 3 

i&8F 060 ZEINUL „.BYT $00,#00 ; ZEILENNUMMER NULL 

1590 00 

1691 EB ZDAVOR EX DE,HL ; POINTERTAUSCH: EINE ZEILE DAVOR 
1692 11 BF 16 LD DE,ZEINUL ; VERSUCHEN 

1695 ;s HIER EINSTIEG 

1695 7E ZSUCHE LD A,{HL) ; HIGHBYTE DER NUMMER 

1695 Eö CO AND $C0 ; TESTEN 

1698 20 F7 JR NZ,ZDAVOR ; BEI >10006 

169A 56 LD D,CHL) s SONST DE LADEN MIT 

189B 23 INC HL ; DER NUMMER 

149C 5E LD E, (HL) 

169D C9 RET 

16%E ; 

169E : ROUTINE WIRD NORMALERWEISE üBER RESTART 30, 

i159E ;s (BC) PLÄTZE BESORGEN, AUFGERUFEN 

1&9E s STACK ENTHÄLT DAHER ALS LETZTEN WERT '’WORKSP' 
159E ; UND DAVOR DIE ANZAHL 'BC' 

169E ; 

187E 2A 63 3C RESERY LD HL,{STKBOT) ; AKTUELLER WERT VON STKBOT 
1&A1il 2E DEC HL ; -1 UM LETZTEN PLATZ VON 
16A2 ; WORKSPACE ZU ERHALTEN 

1&A2 CD 55 1& CALL MACHFL ; PLATZ BESCHAFFEN 

1495 23 INC HL ; AUF DEN ZWEITEN NEUEN 

i&A6 23 INC HL ; PLATZ ZEIGEN 

16A7 C1 POP EC ;s WORKSP ALT WIEDER HERSTELLEN 
1&A8 ED 43 61 5C LD (WORKSP),BC 

idAc Ci FOP BE ;s ANZAHL ZURÜUCKHOLEN 

1&AD EB EX DE,HL ; DE AUF ANFANG+Z UND HL AUF 
löAE 23 INC HL PLATZ NACH DEM FREIRAUM 
1&AF C9 RET ; ZEIGEN LASSEN 

15Bü - 

1&B0 ; ROUTINE LÖSCHT DEN EDITORBEREICH, DEN WORKSPACE 
15B0 ; UND DEN CALCULATOR STACK 

14BÖ - 

16B0 2A 59 5C ECLREDI LD HL,(ELINE) ; EDITORBEREICH NUR MIT 

i&B3 365 OD LD (HL),$D ; CARRIAGE RETURN ; UND 

1&B5 22 58 St LD (KCUR) „HL 

idB8 23 INC HL 

1559 3536 80 LD (HL),$#8B0 ; ENDESYMBOL BESCHREIBEN 
1öBB 23 INC HL 

18BC 22 61 SC LD (WORKSP),HL 

i&BF 2A &1 SC ELRKOR LD HL,{WORKSP} ; WORKSPACE LÖSCHEN 

1662 22 63 SC LD (STKBOT),HL 

1665 2A 583 SC ELRCAL LD HL,(STKBOÜT} ; CALCULATOR-STACK 

1868 22 85 SC LD {STKEND),HL ; LÄSCHEN 

166B ES PUSH HL 

1866 21 92 St LD HL,MEMBOT ; MEM AUF CALCULATOR-BEREICH 
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l&cF 22 58 SC LD (MEM)},HL ; SETZEN 


iaD2 Ei POP HL ; STKEND WIEDER IN HL 

15D3 LC9 RET 

15D4 - 

15D4 ; DIE EDITORZEILE WIEDER ENTFERNEN 

16D4 s 

16D4 ED SB 59 SC LD DE, (ELINE) ; ADRESSE DES EINGEGEBEN 

1äD8 C3 ES 19 JP RAUS ; KOMMANDDS UND SPRUNG 

15DB ; ZUM SPEICHERENTFERNEN 

1&DER ; 

1&DB ; SUBROUTINE ZUM DURCHSUCHEN VON TABELLEN (ENDE = $00) 
16DB ; HL ZEIGT AUF DEREN ANFANG UND C ENTHÄLT DAS ZU 

1&DB ; SUCHENDE ZEICHEN. CARRY GESETZT = GEFUNDEN 

1&DE - 

1äDB 23 SUCHTI INC HL s +1 FüR NÄCHSTES TABELLENPAAR 
isdDdt T7E SUCHTA LD A,(HL) ; EINSTIEG IN DIE ROUTINE 

16DD A7 AND A ; WERT OÖ = ENDE DER TABELLE 

isöDdE C8 RET Z 

1&DF B9 EPG ; VERGLEICH 

1dE0D 253 INC HL ; AUF NÄCHSTEN EINTRAG ZEIGEN 
iäEi 20 FB JR NZ,SUCHTI ; WAR NOCH NICHT RICHTIG 

i6E3 37 SCF ; SONST CARRY SETZEN FÜR GEFUNDEN 
16E4 C9 RET 

16E5 ; 

14E5 ; CLOSE#-SUBROUTINE ZUM SCHLIESSEN VON STREAMS 

16E5 ; FüR STREAMS $00 - #03 WERDEN DIE GRUNDDATEN IMMER 
15E5 ; GESETZT, SO DASS DIESE NICHT GESCHLOSSEN WERDEN KöNNEN 
15ES ; 

16E5 CD: 1E 17 CALL STRDAT ; DATEN DES STREAM HOLEN 

l5E8 CD 01 17 CALL CLOKSP ; CODE DES KANALS FRÜFEN 

16EB 01 00 00 LD BC,O ; DEFAULT FüR STREAMDATEN = NULL 
idEE 11 E2 A3 LD DE,$A3E2 ; AUF > STREAM 3 PRÜFEN 

1öFi EB EX DE,HL ; ($ASE2+$5C1&+2%*STREAMNR.) 

1öF2 19? ADD HL,DE 

iöF3 38 07 JR C,$16öFt ;s NICHT O0 BIS 3 

16F5 61 D4 15 LD BC,#15D4 ; SONST GRUNDDATENADRESSE 

1öF8 09 ADD HL,BC ; DES STREAMS BERECHNEN UND 

16F9 4E LD C,(HL) ; DIESE HOLEN 

16FA 23 INC HL 

i6öFB 45 LD B, (HL) 

iöFC EB EX DE,HL 

iöFD 71 LD (HL) ,C ; NULLEN ODER DIE GRUNDDATEN 
l6FE 23 INC HL ; DES STREAMS SPEICHERN 

IsöFF 70 LD (HL),B 

1700 C9 RET 

1701 - 

1701 ; STREAMCODE K, S ODER P PRÜFEN UND STREAM SCHLIESSEN 
1701 ; 

1701 ES ELDOKSP PUSH HL ; ADRESSE DER STREAMDATEN RETTEN 
1702 2A 4F SC LD HL, (CHANS) ; ADRESSE DER KANALINFORMATIONS- 
1705 09 ADD HL,BC ; FLÄTZE, KANALDATEN DES ZU 

1706 23 INC HL ; SCHLIESSENDEN FILES SUCHEN 
1707 23 INC HL ; DIE SUBROUTINEN-ADRESSE 

1708 23 INC HL ; ÜBERGEHEN UND 

1709 4E LD C,(HL) ; DEN KANAL-CODE HOLEN 

170A EB EX BE,HL ; RETTE HL 

1708 21 16 17 LD HL,CSTRTA ; BASISADRESSE DER 

170E CD DE 16 CALL SUCHTA ; ELDSESTREAM-TABELLE UND SUCHEN 
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1711 
1712 
1714 
1715 
1716 
1716 
1716 
1718 
1717 
1718 
1719 
171A 
171B 
171C 
ı71C 
17iC 
171C 
171D 
L?IE 
IF3iE 
ı7ıE 
LFiE 
1721 
1725 
1725 
1725 
1726 
1727 
1727 
1729 
172A 
172D 
172E 
1730 
1731 
1732 
1733 
17734 
1739 
1736 
1736 
1736 
1735 
1735 
1737 
1738 
1739 
175C 
173D 
173E 
1740 
1741 
1744 
1745 
1746 
1747 
1748 
1749 
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DD 


94 1E 


10 SC 


ie 37 


16 


ar Sc 


LD C,(HL3 
LD B,D 
ADD HL,BE 
JP (HL) 


ı OFFSET IN BE BRINGEN 


; OFFSET ZU HL FÜR INDIREKTEN 
; SPRUNG ADDIEREN 


; TABELLE FÜR CLOSE STREAM 


CSTRTA .BYT 'K',$05 
„BYT '8',$03 
„BYT ‘pP’ ,$01 


; ELOSE STREAM 


CLOSTR POP HL 
RET 


; K OFFSET $05 = $171C 
; S OFFSET $03 = $171C 


‚ P OFFSET 01 = $171C 


; ADRESSE DER STREAMDATA HOLEN 


; NACH BC DIE DATEN EINES STREAM HOLEN 


; 
STRDAT CALL $1E94 
EP #10 
JR C,$1727 


RST ERRAUS 
‚BEYT #17 


ADD 3 
RLCA 

LD HL,STRMS 
LD C,A 

LD B,oO 
ADD HL,BC 
LD C,(HL) 
INE HL 

LD B,{HL) 
DEC HL 
RET 


} 
: DPEN#-SUBRDUTINE 


; STREAMNR VOM CALC-STACK HOLEN 
; > 16 ERGIBT ERROR 


; FEHLERMELDUNG: 
; "INVALID STREAM’ 


> ADDIEREN UND 

MAL 2 

BASISADRESSE DER STREAMDATEN 
BENSTIGTE STREAMADRESSE 


BERECHNEN LIND 
DIE DATENBYTES HOLEN 


u EEE u TEE ae 


ı HL WIEDER AUF DATENBYTES SETZEN 


; KANALCODE MUSS K, 5 DDER P SEIN 


STROPE RST CALRUF 
‚BYT $01 
„BYT $38 
CALL STRDAT 
LD A,B 
OR C 
JR Z,5TROPI 
EX DE,HL 
LD HL,(CHANS) 
ADD HL,BC 
INC HL 
INC HL 
INC HL 
LD A, (HL) 
EX DE,HL 


; CALCULATOR BENUTZEN 


; DATEN DES STREAM HOLEN 
; WENN BEIDE BYTES NULL SIND, 
; WAR ES EIN GESCHLOSSENER FILE 


HL RETTEN 

BASISADRESSE DER KANALINFO 
UND ADRESSE 

DES ZU öFFNENDEN KANALS 
BERECHNEN, UM DESSEN 


a. 8 we DB «we 


; CODE ZU HOLEN 
; HL ZURÜCK 


Fi 


DF 
7A 
DE 
Fi 


00 


01 
0& 


05 
02 


10 


D5 


17 


2B 


17 
16 


STROPI 


DD “1 0 wi 


PTAB 


; 
DPENK 
} 
DPENS 


‚ 
DPENP 


CP #’K' 

IR Z,STROPi 
CP #’5° 

JR Z,STROPi 
CP #’P’ 

JR NZ,$1725 
CALL $175D 
LD (HLI,E 
INC HL 

LD (HLI,D 
RET 


PUSH HL 
CALL $2BFi 
iD A,B 

OR c 

JR NZ,$1767 


RST ERRAUS 
«BYT #0E 


PUSH BC 
LD A,(DE) 
AND $DF 

LD 6,A 

LD HL,OPTAB 
CALL SUCHTA 
JR NE,$1755 
LD C, (HL) 
LD B,0 

ADD HL,EBC 
POP BL 

IP (HL) 


„BYT 'K’,$06 


„BYT ’8°,808 


„BYT 'P',$0A 


„BYT $00 
iD E,1 
IR $1788 


LD E,6 
JR #17BB 


LD E,$10 
DEC BC 

LD A,B 

OR C 

JR NZ,$1765 
LD D,A 

POP HL 

RET 


. “8 


Eu A 


u: Eu 


KANALCOLDE AUF K, S ODER F 
FRÜFEN 


FALLS NICHTS DAVON: ERROR 
STREAMDATEN NACH DE BRINGEN 
UND IN STREAMSPEICHER ABLEGEN 


HL RETTEN 
PARAMETER DES KANALCDDES HOLEN 


STREAMDATEN DK? 
JA 


INVALID FILENAME 


LÄNGE DES AUSDRUCKS RETTEN 
ERSTES ZEICHEN HOLEN 

UND IN EROSSBUCHSTABE WANDELN 
NACH EC FüR TABSUCHE BRINGEN 


IN TABELLE SUCHEN 

NICHT GEFUNDEN: ERROR 
OFFSET ZUM HL-RES ADDIEREN 
UM INDIREKTEN SPRUNG 
AUSFÜHREN ZU KONNEN 

LÄNGE ZURÜCK IN BC 

UND ZUR ROUTINE 


TABELLE FüR STREAMERSFFNUNG 


K OFFSET 06 #1781 


K OFFSET 08 


1785 


K OFFSET 0A 1789 


DATEN öl UND #00 


DATEN 


$0& UND #060 


DATEN 
LÄNGE -1 

ERROR WENN LÄNGE 
NICHT 1 WAR 


#10 UND #00 


D LÖSCHEN UND 
HL ZURÜCKHOLEN 
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1795 
1795 
1793 
1793 
1793 
1795 
1795 
1795 
1795 
1795 
1795 
1799 
179D 
179D 
17A0 
17A4 
1747 
17AA 
L7AE 
17B2 
17B5 
17B9 
17BA 
L7EC 
17BD 
17BF 
17BF 
17C0 
1763 
17C6 
17C7 
17C9 
17CA 
17CD 
17CE 
17CF 
17D2 
1703 
17D4 
17D& 
17D7 
17D8 
17D9 
17DA 
17DB 
17DF 
FE] 
i7El 
17E4 
17E7 
ı 7EA 
1 7EC 
i7ED 
17F0 
17F4 
17F5 
17F5 
17F5 
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18 


90 


BE 


DE 


19 


> 66 


Sc 
Sc 
19 


18 
02 


sc 
10 


Ch 


B6 


C& 


Sc 


Sc 


Ad 


-—— a an 


CAT-, ERASE-, FORMAT- 


UND MOVEBEFEHLE ERGEBEN 


DIE FEHLERMELDUNG "INVALID STREAM’ 


JR #1725 


LIST- UND LLISTROUTINE 
AUSGABE DER ZEILENNUMMER, TOKENUMWANDLUNG, 
CURSORDARSTELLUNG USW. 


ISTAU LD (LISTSP),SP 
LD (IY+2),$10 


CALL $DAF 
SET 0, (1Y+2) 
LD B,(IY+$31) 
CALL $E44 

RES 0,(1Y+2) 
SET 0, (1Y+$30) 
LD HL,(EPPO) 
LD DE, (STOP) 
AND A 

SBC HL,DE 

ADD HL,DE 

IR C,$17E1 


PUSH DE 
CALL $195E 
LD DE,$2C0 
EX DE,HL 
SBC HL,DE 
EX (SP) HL 
CALL $196E 
POP BC 
PUSH BC 
CALL $19BB 
POP BC 

ADD HL,BC 
JR C,$17E4 
EX DE,HL 
LD D, (HL) 
INC HL 

LD E, (HL) 
DEC HL 

LD (STOP) ,DE 
JR $17CE 


LD (STOP) ‚HL 
LB HL, (STOP) 
CALL $196E 
IR 2,$17ED 
EX DE,HL 
CALL $1833 
RES 4, (1Y+2) 
RET 
„END 
‚LIB SPELIBOO-S 
SINCLAIR ZX SPECTRUM 


STACKPOINTER SPEICHERN 
AUTOMATISCHES LISTING IM 
HAUPTBILDSCHIRM ANMERKEN 
DIESEN TEIL LÖSCHEN 

FLABS: EDITORFLÄCHE EINSCHALTEN 
DFSZ LADEN UND UNTEREN 
BILDSCHIRMTEIL LÄSCHEN 

EDITOR WIEDER AUS 

FLAGS2: BILDSCHIRM GELÖSCHT 
AKTUELLE ZEILENNUMMER UND 
OBERSTE NUMMER HOLEN 

FALLS AKTUELLE NIUMMER KLEINER 
ALS OBERSTE IST, DIESE 

NEU SETZEN 


—-— BE ae ME ae TE a TEE a NEE a TE 


; OBERSTE NUMMER RETTEN 
; ADRESSE DER AKTUELLEN ZEILE 
; BERECHNEN 


; ERGEBNIS AUF STACK 
; ERGEBNIS IN ECG 


; ADRESSE NÄCHSTE ZEILE IN DE 

; ERGEBNIS WIEDER IN BC 

; STARTADRESSE DER NÄCHSTEN ZEILE 
; FERTIG UND ZUM AUSLISTEN 


; ZEILENNUMMER DER NÄCHSTEN 
; ZEILE NACH DE ERINGEN 


; DBERSTE (S5-TOF) ZEILE NEU 
; UND WEITERSUCHEN 


; DBERSTE ZEILENNUMMER IN HL 

: UND DIE ZEILE SUCHEN 

SPRUNG, WENN DIESE GEFUNDEN 
SONST ADRESSE AUS DE BENUTZEN 
FÜR AUSGABE DES LISTINGS 
TVFLAG: AUTOMATISCHES LISTING 
WIEDER ABSCHALTEN 


-—-—_ Eu TEE 


TEIL 1800 


17F5 
17F5 
17F5 
17F5 
17F7 
17F9 
17F7 
17F9 
17F9 
I7FB 
1 7FF 
1302 
1805 
1806 
1809 
1809 
1BOB 
180C 
1B0E 
1810 
1812 
1814 
1815 
iB1B 
181A 
181D 
18iF 
181F 
1822 
1825 
1825 
1828 
1829 
182B 
1826 
182D 
1830 
1933 
1833 
1853 
1855 
1855 
1835 
1835 
1858 
1839 
183D 
185F 
1842 
1845 
1847 
1848 
1849 
1949 
184A 
i84B 
1B4E 
1851 


iE 


03 


51 


sc 
OF 


02 00 


25 
16 


20 


Sc 
19 


18 


02 


sc 
AF 


sc 
19 


46 


PET er 7 


EINSTIEG BEI 


EINSTIEG BEI 


LD A,3 
JR $17FB 


LD A,2 
LD (1Y+2),0 
CALL $2530 
CALL NZ,$1501 
RST GETAKT 
CALL $2070 


JR C,$1B1F 
RST BETAKT 
Ep "4 

JR 7,$1814 
BP "5 

JR NZ,$181A 
RST BETNXT 
CALL $1CB2 
IR $1822 
CALL $1CE6 
IR $1822 


CALL $1CDE 
CALL #iBEE 


CALL $1E99 
LD A,B 

AND $3F 

LD H,A 

LD L,C 

LD (EPPE),HL 
CALL $196E 


LD E51 


CALL $1855 
RST PRTOUT 
BIT 4,(1Y+2) 
JR 2,$1835 
LD A,(DFS2) 
SUB (IY+$4F) 
JR NZ,$1835 
XOR E 

RET Z 


PUSH HL 
PUSH DE 

LD HL,STOP 
CALL $190F 
POP DE 


"LLIST' 


"LIST" 


u. Mr. .  “. —. Ws —— ww. 


ww. a u EEE a EEE a BE u 


BT Eee 7 


KANAL 3 FüR DRUCKER örfrFNEN 


KANAL 2 FÜR HAUPTBILDSCHIRM 
TVFLAG: NORMALES LISTING 
KANAL ÖFFNEN, FALLS KEINE 
SYNTAXPRUÜFUNG 

AKTUELLES ZEICHEN LADEN UND 
NACHSEHEN, OB EIN ANDERER 
KANAL ZU öFFNEN IST 

NEIN 

AKTUELLES ZEICHEN HOLEN 


WENN SEMIKOLDN 


WENN NICHT KOMMA 
NÄCHSTES ZEICHEN HOLEN, PRÜFEN 
DB NUMERISCHER AUSDRUCK 


DHNE SEMIKDLON ODER KOMNMA, 
NULL BENUTZEN 


ZEILENNUMMER BZW. NULL HOLEN 
FALLS SYNTAXPRÜFUNG, NÄCHSTER 
BEFEHL 

ZEILENNUMMER NACH BC 

HIGH-BYTE IN DEN ERLAUBTEN 
BEREICH BRINGEN UND DIE 

GANZE ZEILENNUMMER NACH 

HL KOPIEREN 

DIESE ABSPEICHERN 

STARTADRESSE DER ZEILE SUCHEN 
FALLS DIESE NICHT EXISTIERT, 
DIE ADRESSE DER NÄCHSTEN ZEILE 
FLAG ’VOR DER AKTUELLEN ZEILE’ 


SCHLEIFE ZUM LISTEN MEHRERER ZEILEN 


EINE BASICZEILE LISTEN 

EIN CARRIAGE RETURN AUSGEBEN 
AUTOMATISCHES LISTING ? 

NEIN 

IM HAUPTBILDSCHIRM NOCH WAS 
FREI ? 

JA 

RETURN, FALLS SCHIRM VOLL UND 
DIE AKT. ZEILE GELISTET WURDE 


FALLS NICHT, 

STOP AUF NEUEN WERT SETZEN, 
DIE NÄCHSTE ZEILE MIT 
SERDLLING AUSGEBEN UND 
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1852 
1853 
1855 
1855 
1855 
1855 
1859 
185C 
185[C 
iB5E 
1950 
1853 
1855 
1858 
1889 
185B 
186C 
185D 
185D 
i85E 
1271 
1871 
1872 
18735 
1874 
1878 
1879 
187A 
187C 
137C 
187D 
1881 
1882 
1883 
1887 
i88A 
188C 
1890 
1892 
1894 
1974 
1897 
1893 
189A 
189C 
IS9E 
18A1 
18A4 
18A5 
18A& 
18349 
18AA 
1SAC 
LBSAE 
ıi8AF 
iBB2Z 
18B4 
1BB5 
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 py,YNNnND mM 
SI Do WI cd Wed 


EÖ 


CE 


; 2D 


öl 


öl 


18 
iß 


19 


sc 


86 


C5 


96 


sE 


’ 
} 


POF HL 
JR $1835 


LD BC, (EPPC) 
CALL $1980 


LD D,$3E 

JR 2,$1865 

LD DE,O 

RL E 

LD {IY+$2D) ,E 
LD A, (HL) 

CP $40 


PUSH BE 
CALL #1A28 


INC HL 

INC HL 

INC HL 

RES 0, (IY+L) 
LD A,D 

AND A 

JR Z,$1881 


RST PRTOUT 
SET 0,(IY#i) 
PUSH DE 

EX DE,HL 

RES 2, (IY+48) 
LD HL,FLASS 
RES 2, (HL) 
BIT 5,{1Y+55) 
JR 2,$1894 
SET 2,(HL) 


LD HL,(CXPTR) 
AND A 

SBE HL,DE 
IR NZ,$1BAl 
Dh,” 
CALL $iBC1 
CALL $18E1 
EX DE,HL 

LD A,{HL) 
CALL $18B6 
INC HL 

CP &D 

IR 2,$18B4 
EX DE,HL 
CALL $1937 
JR $1894 
POP DE 

RET 


—. as — Ms —.-0 0 E a — We 


-—-— || EEE a er 


—. A an 


.—— BE a Eu TE a TE a TEE en u 


| "BE u tie 


WEITER 
IN DER LISTSCHLEIFE 


j 
AUSGABE EINER KOMPLETTEN BASICZEILE 


AKTUELLE ZEILENNUMMER HOLEN 
UND VERGLEICHEN, DB AKTUELLE, 
EINE DAVOR ODER DANACH 
DEFAULT CURSOR FÜR AKT. ZEILE 
SPRUNG BEI AKTUELLE ZEILE 

DE AUF öl FÜR ZEILE 'DAVOR’ UND 
= Ö FüR ZEILE "DANACH 
ZEILENMERKER SPEICHERN 
HIGHBYTE DER ZEILENNUMMER 
LABEN UND RETURN, KENN LISTING 


FERTIG 


ZEILENNUMER MIT FÜHRENDEN 
SPACES AUSGEBEN 


HL AUF ERSTES ZEICHEN IN 

DER ZEILE SETZEN 

FLABS: FÜHRENDE SPACES ERLAUBT 
CURSORCODE HOLEN 

UND SPRUNG, WENN 

CURSOR NICHT GEDRUCKT WIRD 


SONST CURSOR AUSGEBEN 
FÜHRENDE SFACES UNTERDRÜCKEN 
RETTEN 

ZEILENZEIGER NACH DE 

KEIN GÄNSEFUSSMODUS '"' 


AUSGABE IN K-MODUS 
INPUTMODUS ?7 

NEIN 
JA: L-MODUS SETZEN 
SYNTAXERRDORZEIGER LADEN 

CARRY LOSCHEN 

UND SOLANGE SPRINGEN, BIS 
ERROR ANGEZEIST WERDEN SOLL 
EIN BLINKENDES '?' 

AN DER ERRORSTELLE DRUCKEN 
UNTERSUCHEN, DNB EURSOR DRUCKEN 
HL HIEDER RESTAURIEREN 

EIN ZEICHEN DER ZEILE LADEN 
AUF ZAHLENMERKER UNTERSUCHEN 
ZEIGER +1 

WENN ZEICHEN EIN CARRIAGE 
RETURN WAR, DANN ENDE 

HL WIEDER NACH DE 

ZEICHEN AUSGEBEN 

UND WEITER IN DER ZEILE 

ENDE DER ZEILE BEI CR 


18B5 
18B6 
18B& 
18B& 
18B6 
ı8E8 
i8B9 
1869 
18BA 
i8BER 
18BC 
1BED 
iBBE 
i8BF 
1800 
i18C1 
18C1 
18C1 
18C1 
18C2 
1865 
1866 
18C8 
i8CA 
18CD 
193D0 
18D1 
18D2 
18D4 
1854 
18D7 
18D8B 
18DB 
18DC 
18DF 
1BED 
18Ei 
18E1 
18E1 
18EI 
18Ei 
1BEI 
18E1 
18E4 
18E5 
18E7 
iBEB 
1BEB 
ı1BEB 
i8ED 
IBEF 
ı18Fi 
18F3 
18F3 
18F& 
idF8 
IBFA 
18FC 


DE 


74 


BF 


oc 
sc 


09 


37 


SC 


Sc 


Sb 


Sc 


INC HL 
LD A,CHL) 
RET 


EXX 

LD HL,(ATIRT) 
PUSH HL 

RES 7,H 

SET 7,L 

LD (ATTRTI ,HL 
LD HL,PFLAG 
LD D, (HL) 
PUSH DE 

LD (HL) ,O 


CALL $#9F4 

POP HL 

LD (IY+#57),H 
FOP HL 

LD (ATTRTI ,HL 
EXX 

RET 


WENN ZEICHEN EIN ZAHLENMERKER IST, DANN DIE FLOATING- 
FOINTZAHL ÜBERGEHEN 


RETURN, WENN KEIN ZAHLENMERKER 


SONST HL +6 ZUM 
ÜBERSPRINGEN DES MERKERS 
UND DER 5 EYTE LANGEN 
FLOATINGFOINTZAHL 


NÄCHSTES ZEICHEN LADEN 


AUSGABE EINES BLINKENDEN ZEICHENS 


REGISTER UND 
ATTRT + MASKT RETTEN 


BLINKEN 

EINSCHALTEN 

IN ATTRT + MASKT EINSCHREIBEN 
PFLAG AUCH 


ZWISCHENSFEICHERN 
INVERSE + OVER =D, 
PAPER DDER INK ©>9 
ZEICHEN AUSGEBEN 
PFLAG UND 


ATTRT + MASKT 
WIEDER HERSTELLEN 
REGISTER ZURÜCK 


AUSGABE DES CURSORS 
FALLS AKTUELLE AUSGABEFOSITIDN NICHT CURSORPOSITIDN 
IST, SOFORT RETURN, SONST BEN ENTSFRECHENDEN CURSOR 


(C/E/B/K/LI DRUCKEN 
LD HL,{KCUR) ; CURSDRADRESSE LADEN 
AND A ; CARRY LÖSCHEN 
SEC HL,DE ; POSITION RICHTIG ? 
RET NZ ; NEIN 
LD A, (MODE) ; JA: MODUS UNTERSUCHEN 
RLE A ‚ MAL 2 
JR Z,$18F3 : WENN NICHT 'G’ ODER 'E' 
ADD $43 ; SONST #43 ALS OFFSET ADDIEREN 
JR $1909 
LD HL,FLAGS 
RES 3, (HL) ; K-MDDUS ANMERKEN 
RT ; CURSOR K LADEN 
BIT 2,{HL) ; UND AUSGEBEN, 
JR 2,$1909 ; WENN K-MODUS 


93 


DE 
CB 
02 
43 


ci 


6E 
95 


CB 


OD 


30 


30 SE 


18 


1? 


15 


37 &E 


2D 


— an Tan 


—— EEE TE 


BEI EINSTIEG ZEIST HL AUF STOP ODER EPPE. 


SET 3,(HL) 
INGE A 


BIT 3,(IY+$30) 


JR 2,$1909 
iD A,%E 
PUSH DE 
CALL $iBC1 
POF DE 

RET 


.—— er ME ee TEE an 


SONST L-MODUS 

REG A ENTHÄLT ’L’ 

SPRUNG, WENN 

IN L-MODUS 

SONST BLEIBT NUR NOCH C-MODUS 
ZWISCHENSPEICHERN 


BLINKENDEN LCURSDR AUSGEBEN 


AM ENDE 


ENTHÄLT DIE JEWEILIGE VARIABLE DIE ZEILENNUMMER 


LD E, (HL) 
INC HL 

LD D, (HL) 
PUSH HL 

EX DE,HL 
INC HL 
CALL $196E 


CALL 1695 
POP'- HL 


BIT 5,(1Y+$37) 


RET NZ 


LD (HL),D 
DEC HL 

LD {HLI,E 
RET 


DIE DERZEITIGE ZEILEN- 


NUMMER NACH DE LADEN 


POINTER 
NACH HL 


RETTEN 
ERINGEN UND 


i ADDIEREN 
STARTADRESSE DER AKTUELLEN 
OBER NÄCHSTEN ZEILE SUCHEN 
DIE ZEILENNUMMER DIESER LADEN 


POINTER WIEDER HOLEN 


INPUT-MODUS ? 
JA, RETURN 


SYSTEMVARIABLE MIT 
DER SEFUNDENEN 
ZEILENNUMMER BESCHREIBEN 


ROUTINE GIBT ZEICHEN EINER BASICZEILE AUS. 
WERDEN FÜHRENDE SFACES 


WANDLUNGS 


LD A,E 
AND A 
RET M 
IR $1937 


” 
’ 
“ 
H 
” 
h 


UNTERDRUCKT 


NACH E K 


TEST 


(A=$FF) 


DPIEREN 


RETURN BEI $FF 
SONST AUSGABE 


BEI ZAHLEN 
ODER NICHT 


EINER ZEILENNUMMER IN HL IN EINE DEZIMALZAHL 


DAZU ENTHÄLT BC, JE NACH AUFRÜUF, DIE WERTE -1000, -109 


ODER -10 


HIER 


XOR A 
ADD HL,BC 
INC A 

JR C,*1928B 
SBC HL,BC 

DEC A 

JR 2,$1925 
IP $15EF 


ALLE ZEICHEN, 


CALL #2DIB 

JR NEC,#196C 
ER 2 

JR C,#196C 


3 
” 
3 
[ 
} 


” 
3 
” 
; 
’ 
; 


{DESHALB ADDITION!) 


REG A = 


0 ZUM ZÄHLEN 


ES WIRD FROBEWEISE BC ADDIERT 
UND DER ZÄHLER INKREMENTIERT 


NOCH KEI 


N UNDERFLOW 


EINMAL ZUVIEL WIEDER ABZIEHEN 
UND ZÄHLER -1 


FALLS NICHTS, 


FRÜFEN 


AUF SPACE 


SONST EINE DEZIMALZAHL DRUCKEN 


CONTROLCDDES UND TOKENS AUSBEBEN 


AUF DEZIMALZAHL PRÜFEN 
FALLS JA, DIREKT AUSGEBEN 
ALLE STEUERZEICHEN UND SPACE 


AUSGEBEN 


1940 
1944 
1945 
1948 
i94A 
194C 
1950 
1952 
1955 
1958 
195A 
195C 
195E 
195F 
1962 
1954 
1967 
1968 
196C 
19&C 
195D 
196E 
198E 
196E 
195E 
196E 
196E 
196E 
196E 
195E 
196F 
1972 
1973 
1974 
1975 
1978 
1978 
1978 
1777 
197A 
197D 
197E 
1980 
1980 
1980 
1980 
1980 
1981 
1982 
1983 
1984 
1985 
1985 
1987 
1988 
1998 
1988 
1988 


80 


BB 


F4 


01 


Sc 


Sc 


01 


19 


96 


D& 


I ET as ... 


RES 2, 1IY*t) 
EP CB 

JR Z,$196C 

7 u 

JR NZ,$195A 
BIT 5,61Y+537) 
JR NZ,31968 
BIT 2,{1Y+$30) 
JR Z,$195C 

JR 1968 

5 

JR NZ,*19658 
PUSH AF 

LD A, (FLAGS2) 
XOR 4 

LD {FLAGS2),A 
POP AF 

SET 2,1111) 


RST PRTOUT 
RET 


ae 


ANMERKEN: AUSGABE K-MODUS 
SPRUNG BEI '’THEN’' 


ALLES AUSSER ':' SPRUNG 
DOFFELFUNKT IM INPUT-MODUS 
AUSGEBEN 

SPRUNG, WENN DOPPELPUNKT 
NICHT IM TEXTMODUS '"' 
SONST AUSGEBEN 

ZEICHEN FÜR TEXTMODUS ? 
NEIN 

ZEICHEN RETTEN 
TEXTMODUSBIT INVERTIEREN 


"" ZURÜCKHOLEN 

ANMERKEN: NÄCHSTES ZEICHEN 
IM L-MODUS 

DAS ZEICHEN AUSGEBEN 


SUBROUTINE ZUM SUCHEN DES ANFANGS EINER ZEILE NACH 


DEREN ZEILENNUMMER 


(IN HL). WIRD DIESE ZEILE NICHT 


GEFUNDEN, WIRD DIE STARTADRESSE DER NÄCHSTEN ZEILE 
ÜBERGEBEN, JEWEILS IN HL, UND IN DE DIE ADRESSE DER 
ZEILE DAVOR. FALLS ZEILE GEFUNDEN WURDE, IST DAS 


ZERDFLAG GESETZT 


PUSH HL 
LD HL,(PROG) 
LD DyH 

LD E,L 

POP BC 

CALL $£1980 


RET NE 
PUSH BL 
CALL $19B8 
EX DE,HL 
IR $1974 


ZWISCHENSPEICHERN 
SYSTEMVARIABLE 
PROG NACH DE BRINGEN 


ZEILENNUMMER IN BC 

VERGLEICH DER VORGEGERBENEN 
ZEILENNUMMER MIT DER DERZEIT 
ADRESSIERTEN 

RETURN: ZEILE GEFUNDEN 

SCNST DIE NÄCHSTE 

ZEILE SUCHEN 

FOINTER TAUSCHEN UND 

NOCHMAL SUCHEN 


VERGLEICH EINER ZEILENNUMMER IN BC MIT EINER DURCH HL 


ADRESSIERTEN ZEILE 


LD Ä,(HL) 
CP B 

RET NZ 
INC HL 
LD A,(HL) 
DEC HL 
cPc 

RET 


—— (Eu ee 


HIGHBYTE DER ZEILENNUMMER 
MIT GESUCHTER VERGLEICHEN 
NICHT GLEICH 

SONST LOWBYTE 


LADEN UND 


VERGLEICHEN: GLEICH UND 
GROSSER: CARRY GELSSCHT 


DIESE ROUTINE SUCHT DAS DURCH DAS REGISTER D 
BESTIMMTE ZEICHEN EINER ZEILE ODER DAS ZEICHEN, 
TOKEN ETC. WELCHES IN REG E ENTHALTEN IST 


95 


1988 


1988 23 INGE HL ; FOINTER +3 

1989 25 INC HL 

198A 23 INC HL 

198B ; NORMALER EINSTIESB 

I98B - 22 5D 36 LD {CHADD) „HL ı AUF DERZEITIGES BYTE SETZEN 
198E GE 00 LD C,0 ; TEXTMODUS AUS 

1990 i :SUSHSCHLETFE 

1790 15 DEC D : D: ALS ZÄHLER —+1 

1991 CB RET Z ; ZEICHEN GEFUNDEN 

1992 i 

11772 Ei RST GETNXT ;s NÄCHSTES ZEICHEN HOLEN 

1993 BB GR E ; MIT GESUCHTEM VERGLEICHEN 
1994 20 04 JR NZ,#199A ; UNGLEICH 

1998 9A? AND A ; GEFUNDEN: CARRY- UND ZEROFLAG 
1997 19 RET ; GELÖSCHT BEI RETURN 

1998 23 ING HL 

ETF FE LD A,{HL) ; NÄCHSTES ZEICHEN 

199A CD Ba 18 CALL #18Ba ; ÜBER ZAHLEN HINWEGLESEN 

iD 22 32% LD {CHADD),HL : NEU SETZEN 

I9AO FE 22 Be MT ; GANSEFUSS FüR TEXTMODUS ? 
1942 20 01 JR NZ,$19A5 ; NEIN 

19A4 0D DEC GC ; SONST ANMERKEN 

1965 FE3 ir a 

1937 28 04 JR Z,#19AD ; BEI BOPFELPUNKT WEITERSUCHEN 
1949 FE CB EP $CB ı IST TOKEN = "THEN” ? 

I9AB 20 04 JR NZ,#19Bi1 ı NEIN 

19AD CB 41 BIT O,C ; TEXTMODUS ? 

I9AF 28 DF JR 2,8199 ; NEIN 

19Bi FE OD CP $D ; CARRIAGE RETURN ? 

I7B3 20 E33 JR NZ,#1998 ; NEIN 

r9#B3 15 DEC D ; ZAHLER -1 

1985 37 ScF ; CARRYFLAG FüR RETURN SETZEN 
1957 69 RET 

198 - 

ı19B8 ; SUBRDOUTINE ZUM SUCHEN DER NÄCHSTEN BASICZEILE NDDER DER 
19BB ; NÄCHSTEN VARIABLEN 

19B8 - 

19B8 E5 PUSH Hi ; RETTE POINTER 

19787 26E LD A,{HL) ; ERSTES ZEICHEN HOLEN 

i9BEA FE 40 CF $40 

ITBE 38 17 JR C,#19D5 ; UND BEI ZEILENSUCHE: SPRUNG 
I9BE CB ör BIT 5,A ; BEI STRING- DDER ARRAY- 

19C0 28 14 JR 2,+19Da ; VARIABLEN: SPRUNG 

1962 97 ADD A ; BIT.& TESTEN: EINFACHE UND 
1965 FA L7 19 Jr M,819C7 ; FOR-NEXT VARIABLE: SPRUNG 
I9Ch 3ZF ERF NUR VARIABLE MIT LANGEN NAMEN 
1967 91 05 00 LD: BES ; NUMERISCHE VARIABLE BENSTIGEN 
19CAk 30 02 JR NC,#19CE ; 5 UND FOR-NEXT 

ASEG DE I2 LD ©; #12 ; VARIABLE 18 SPEICHERFLÄTZE 
I9GE 17 RLA ı CARRY IST NUR BEI LANGEN NAMEN 
Ä9EF 2% INC HL  BELSSCHT 

1900 7E LD A,{HiL) 

1sDi 30 FB JR NGC,#19CE ı SUCHE BIS DIESE ZU ENDE SIND 
1903 18 06 JR #19DE ; IMMER SFRUNG BEI VARIABLEN 
19D5 - 

1205 23 INC HL ; ZEILENSUCHE: LÜWZEILENNUMMER 
i9D& 23 INC HL ; UND AUF LOWLÄNGE ZEIGEN 
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DD 


&4 


BO 


19 


16 


Sc 
Sc 
Sc 
Sc 
2D 


2D 


D8 


DI we we (ar we 


-— ss m. 0. u. “. . 


LD C, HL) 
INC HL 
LD B, (HL) 
INC HL 
ADD HL,BC 
POP DE 


. 
; 


DIE LÄNGE IN BC 


LADEN 
HL ZEIST 
AUF NÄCHSTE ZEILE/VARIABLE 


SUBROUTINE ZUM BERECHNEN EINER DIFFERNZ IN BC. 
HL UND DE SIND BEI RETURN VERTAUSCHT 


IFFER AND A 


SBC HL,DE 
LD B,H 

dd £,L 
ADD HL,DE 
EX DE,HL 
RET 


CARRY LÖSCHEN 
DIFFERENZ EILDEN UND 
NACH BC BRINGEN 


SUBTRAETION RüUCKGAÄNGIG MACHEN 
POINTER TAUSCHEN 


DIESE ROUTINE ENTFERNT SPEICHERBEREICHE UND KORRIGIERT 
ALLE ENTSPRECHENDEN PDINTER, 
AM ERSTEN EINSTIEG ENTHÄLT DE DIE ERSTE ZU ENTFERNENDE 
UND HL DIE ERSTE, NICHT MEHR ZU ENTFERNENDE, SPEICHER- 
STELLE. BEIM ZWEITEN EINSTIEGSPUNKT ENTHÄLT HL DIE 

ERSTE ZU ENTFERNENDE SPEICHERSTELLE UND BC DIE ANZAHL 


; 
RAUSI CALL DIFFER 
RAUS2 FUSH BC 


_—. 0. on Na Tan 


LD A,B 
CPL 

LD B,A 

LD A,C 
CPL 

LD C5A 
INC BC 
CALL $1664 
EX DE,HL 
POP HL 
ADD HL,DE 


PUSH DE 
LDIR 
POP HL 
RET 


a TEE ae 


ANZAHL AUSRECHNEN 

ANZAHL ZWISCHENSPEICHERN 
KOMPLEMENT VDN BC BILDEN, 
WEIL ALLE PDINTER "DBERHALEB 
DES ZU L5ÄSCHENDEN SPEICHER- 
BEREICHS KORRIGIERT WERDEN 
MÜSSEN 


POINTER NEU SETZEN 

"ERSTE’ SPEICHERSTELLE WIEDER 
IN DE UND DIFFERENZ IN HL 
ADDIERT ERGIBT ERSTE, NICHT ZU 
ZU ENTFERNENDE SPEICHERSTELLE 
ADRESSE ZWISCHENSPEICHERN 
UMSPEICHERN 

ERSTE STELLE IN HL 


EINLESEN EINER ZEILENNUMMER BEIM EDITIEREN. 
BEI EINEM DIREKTKOMMANDD WIRD DIESE ZU NULL GESETZT. 
DAS ERGENIS STEHT IMMER IN BC 


LD HL,(ELINE) 
DEC HL 

LD (CHADD) „HL 
RST GETNXT 

LD HL,MEMBOT 
LD (STKEND) ‚HL 
CALL $2D3B 
CALL $2DA2 

IR C,$1A15 

LD HL,$DEFO 


- 
: 
i 
i 
Li 
; 
} 
; 
; 
; 
” 
; 
Li 
; 


FOINTER AUF EDITORZEILE 
CHADD AUF POSITION VOR 

DER ZEILENNUMMER SETZEN 
NÄCHSTES ZEICHEN HOLEN 
CALCULATORSPEICHER ALS 
CALCULATORSTACK SETZEN 
ZEILENNUMMER ODER 0 EINLESEN 
NUMMER IN BC BRINGEN (HEX) 
FALLS NUMMER >65535: ERROR 
SONST TEST AUF 10000 
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iAi4 09 ADD HL,EC 

iA15S DA BA IC IP C,$1CBA ; ZEILENNUMMER »10000: ERROR 
iAiB C3 C5 16 JP 1565 ; CALCULATORSTACK NORMAL 
lAIlE : 

iAiB ; ZEILENNUMMERAUSGABE 

iAIB : INHALT BC WIRD IN DEZIMAL GEWANDELT UND AUSGEGEBEN 
iAiB ; 

iAlB D5 PUSH DE ; REGISTER 

lAIC ES PUSH HL ; RETTEN 

1AiD AF XOR A ; REEA = 0 

IAlE ECB 78 BIT 7,B 

1A20 20 20 JR NZ,#1A42 

iA22 &0 LD H,B ; DEZIMALZAHL FÜR DIE 

1A23 659 LD L;6 ; AUSGABE NACH HL 

iA24 1E FF LD E,#$FF ; KEINE FÜHRENDEN SPACES 
iA2& 18 08 JR $1A30 ; UND AUSGEBEN 

1A28 ; 

1A2B DIE DURCH HL ADRESSIERTE (HEXADEZIMALE) ZEILENNUMMER 
1A23 ; IN DEZIMAL WANDELN UND AUSGEBEN {MIT FÜHRENDEN SPALES) 
1A2B - 

1A28 DS PUSH DE ; RETTEN 

1A29 56 LD D, (HL) ; ZEILENNUMMER NACH DE 

lA2A 23 INC HL 

1A2B SE LD E,(HL) 

lA2C E5 PUSH HL ; POINTER HIERAUF RETTEN 
1A2D EB EX DE,HL ;s NUMMER IN HL 

IAZE TE 20 30 Te ; FüHRENDE SFACES ZULASSSEN 
1AS0 01 18 FC LD BC,$FCi8 ı -1000 LADEN 

IiA3S ED 2A 19 CALL #192A ; ERSTES DIEIT AUSGEBEN 

iASs5 DI IC FF LD BE,$FF9C ; 100 LADEN 

1439 CD 2A 19 CALL #192A ; NÄCHSTES DIEGIT 

IASC 0ÖE Fö LD C,$Fö ; -10 LADEN 

lA3E CD 2A 19 CALL #192A ; ZEHNERBDIGIT 

iA4i 7D LD A,L ; EINERSTELLE ALS 

ıA42 CDEF 15 CALL $1SEF ; DEZIMALZAHL AUSGEBEN 

1A45 Ei POP HL ; REGISTER ZURÜCKHOLEN 

IA4b Di POP DE 

1A47 C9 RET 

1A4B s 

iA4B FFF52355555555255 5555555555555 55555555555 5ESESESESSS5 
1A4B ; 

1A48 ; BASICBEFEHLSINTERPRETATION 

iA4B ; 

iA4B ;s DFFSETTABELLE DER BASICEBEFEHLE FüR DIE ZWEITE TABELLE 
ı1A48 ; 

iA4BE Bi BEFOFF .BYT $Bi s DEF FN 

1A49 CR ‚.BYT $CB CAT 

IA4A BC :BYT #BE ; FORMAT 

iA4B BF ‚BYT #BF ; MOVE 

iAsct CA .BYT $C4 ; ERASE 

iA4D AF .BYT $AF ; DPEN# 

IA4E B4 ‚.BYT $B4 ; ECLOSE# 

IA4F 93 cBrt 898 ; MERBE 

1A50 91 BIT 81 s VERIFY 

1ASıI 92 .BYT #92 s ‘BEER 

1A52 95 .BYT #95  GIRELE 

1AS3 98 ‚.BYT $98 ; INK 

1AS4 98 .BYT $98 : FAPER 
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1A5S5 98 „BYT $98 » FLASH 

IA56 98 „BYT $98 ; BRIGHT 

1457 98 .EYT $98 ; INVERSE 

1A58 98 „EYT $98 ; DVER 

1A59 98 „BYT $98 ; BUT 

IASA  7F „BYT $7F ; LPRINT 

IASB Bil .BYT $Bi ; LLIST 

IASC 2E „BYT $2E ; STOP 

IASD &C „BYT $6C ; READ 

IASE 6E „EYT $6E ; DATA 

IASF 70 .EYT 870 ; RESTORE 

ih&0 48 „BYT $48 ; NEN 

IAbl 94 .EYT £94 ; BORDER 

1A&2 56 „EYT $5% ; CONTINUE 

{A633 3F „BYT $3F ; DIM 

1A64 4 „EYT $41 ; REM 

{A65 28 ‚EYT $2B ; FOR 

IA&6 17 „BYT $17 ; 50 TO 

1A67 IF „EYT $1F ; 6D SUB 

iA&8 37 „BYT $37 ; INPUT 

iA69 77 ‚BYT $77 ; LOAD 

IR&A 44 .BYT $44 ; LIST 

IA&B OF .BYT OF ; LET 

IA6c 59 „BYT $59 ; PAUSE 

iA6D 28B „EYT $2B ; NEXT 

iAbE 43 „BYT #43 ; POKE 

IA&F 2D „EYT $2D ; PRINT 

1A70 51 „BYT $51 ; PLOT 

ATi 3A „EYT $3A ; RUN 

IA72 6D „BYT $&D ; SAVE 

IA73 42 ‚EYT $42 ; RANDOMIZE 

1A74 00 „BYT $0D ; IF 

iA75 49 .EYT $49  CLS 

1A7& SC ‚BYT $5C ; DRAW 

IA77 44 „BYT $44 ; ELEAR 

IATe 15 „BYT $15 ; RETURN 

1A79  5D „BYT $5D ; COPY 

1A7A ; 

1A7A ; PARAMETERTABELLE FÜR DIE BEFEHLE 

ATA : BYTES IM BEREICH VON $00 BIS $0B GEBEN DIE WEITEREN 
1A7A ; NOTWENDIGEN PARAMETER FüR DIE EINZELNEN BEFEHLE AN 
tA7A ; 

1A7A ; PAROO: KEINE WEITEREN PARAMETER 

LATA ; PARöl: BEI LET, EINE VARIABLE WIRD GEBRAUCHT 
1A7A ; PARO2: EIN NUMERISCHER/STRING-AUSDRUCK MUSS FOLGEN 
LA7A ; PAROS: NUMERISCHER AUSDRUCK KANN FOLGEN, SONST 0 
LATA ; PARO4: EINE EINFACHE VARIABLE MUSS FOLGEN 

1ATA ; PAROS: EIN PARAMETERSATZ KANN FOLGEN 

1A7A ; PAROs: EIN NUMERISCHER AUSDRUCK MUSS FOLGEN 

LA7A ; PARO7: FARBENBEHANDLUNG ETC. 

1A7A ; PAROB: ZWEI DURCH ‘,' GETRENNTE, NUMERISCHE AUSDRÜCKE 
1A7A ; PARO9: WIE 08, ABER FARBENAUSDRÜCKE DÜRFEN VORANBEHEN 
{A7A ; PAROA: EIN STRING-AUSDRUCK MUSS FOLGEN 

LA7A ; PAROB: BEARBEITET KASSETTENROUTINEN 

1A7A 

IATA 01 PALET .BYT $01 

iA7B 3D „BYT '=' 

IA7TC 02 .EYT $02 
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1A7D 
LATE 
1A7F 
1ABi 
1A82 
iAB3 
1A84 
1AB& 
1A87 
1AB8 
1ABA 
ABB 
1ABD 
1ABE 
1A?0 
1A91 
1A92 
1A93 
1A94 
1A95 
1A95 
1A98 
1A99 
L1A9FA 
1A9Cc 
1A9D 
1A9F 
AAO 
1AA2 
1AAS 
1AAS 
1AAd 
1AAB 
AA? 
1AAB 
LAAC 
1AAE 
1AAF 
1ABI 
1AB2 
1ABS 
1ABS 
1AB& 
1ABB 
1AB? 
iABB 
ABC 
iABE 
IABF 
lAcı 
1ACc2 
1AC3 
1AC5 
1ACd 
iAC7 
1AC9 
1ACA 
LAcc 


100 


IE 


ic 


IE 


ic 


IF 


iD 


iD 


LF 


iD 


PAGOTD 


PAIF 


PAGDSU 


PASTOP 


PARETU 


FAFOR 


PANEXT 


PAPRIN 


PAINPU 


PADIM 


PAREM 


PANEW 


PARILN 


FALIST 


PAPOKE 


PARAND 


FACONT 


FACLEA 


PACLS 


FAFLOT 


PAPAUS 


PAREAD 


PADATA 


«BYT 
.BYT 
« WOR 
‚.BYT 
‚BYT 
.BYT 
« WOR 
.BYT 
.BYT 
«WOR 
‚BYT 
«KOR 
.BYT 
«WOR 
.BYT 
.BYT 
«BYT 
.BYT 
.BYT 
.BYT 
« WOR 
„BYT 
.BYT 
«WOR 
„BYT 
.WOR 
„BYT 
» WOR 
.BYT 
«WOR 
.BYT 
« WOR 
„BYT 
«WOR 
.BYT 
« WOR 
«BYT 
: WOR 
‚BYT 
«BYT 
« WOR 
.BYT 
« HOR 
„BYT 
«WOR 
„BYT 
« WOR 
.EYT 
«WOR 
‚.BYT 
„BYT 
«WOR 
.BYT 
.BYT 
.WOR 
„BYT 
«WOR 
‚BYT 


06 
CC 
$06 
05 
$1D03 
$04 
$00 
$1DAB 
$05 
£1FCD 
$05 
2089 
£05 
2002 
05 
£1BB2 
00 
$11B7 
$05 
$1EA1 
05 
£17F9 
$08 
00 
t1EBO 
+05 
$1E4F 
00 
$1ESF 
£03 
$1EAC 
00 
£0D&B 
309 
00 
$22DC 
05 
00 
$1FSA 
+05 
#1DED 
05 


THEN 


; TO 


1ACD 
iACF 
1ADO 
ı1AD2 
1ADS3 
ıAD4 
1AD& 
1AD? 
1AD9 
ıADA 
1ADC 
ADD 
iADF 
1AEO 
IREI 
iAE2 
iAES3 
iAE4 
1AES 
1AE7 
iAE8 
1AE9 
1AEB 
iAEC 
iAED 
iAEE 
1AEF 
1AFO 
IAFl 
iAF2 
1AF3 
1AFS 
1AF& 
iAF7 
1AF?9 
iAFA 
IAFC 
IAFD 
1AFE 
IAFF 
1B00 
1B02 
1B03 
1Bö4 
1806 
1B07 
iBOB 
1BOA 
1BOB 
1B0C 
1BOD 
1BOE 
1B10 
iBil 
1Bi12 
1B14 
1B15 
1Bi17 


1E 


22 


17 


16 


1:7 


17 


17 


PAREST 


PADRAW 


PACDPY 
FALPRI 
FALLIS 
FASAVE 
PALDAD 
PAVERI 


FAMERG 
FABEEP 


PACIREC 


PAINK 

PAPAPE 
FAFLAS 
PABRIS 
PAINVE 
FADVER 
PAGUT 


PABORD 


PADEFN 


PADPEN 


PACLDS 


PAFORM 


PAMDVE 


PAERAS 


PACAT 


. WOR 
‚.BYT 
» WOR 
‚EYT 
„BYT 
«WOR 
«BYT 
« WOR 


«BYT . 


‚ HOR 


„BYT : 


‚ WOR 
«BYT 
‚BYT 
«BYT 
«BYT 
«BYT 
.BYT 
« WOR 
‚BYT 
.BYT 
«HOR 
‚BYT 
«BYT 
„BYT 
«BYT 
«BYT 
.BYT 
.BYT 
.BYT 
« HOR 
.BYT 
.BYT 
«WOR 
.BYT 
« WOR 
.BYT 
.BYT 
.BYT 
„BYT 
. WOR 
‚.BYT 
‚BYT 
«WOR 
«BYT 
«BYT 
‚KOR 
«BYT 
.BYT 
.BYT 
.BYT 
‚WOR 
.BYT 
‚BYT 
‚WOR 
.BYT 
.WOR 
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1B17 
1B17 
1B17 
1B17 
1B17 
iBiB 
iBiE 
iBiE 
iBiF 
1B22 
1B23 
1B26 
1B28 
1B29 
ıiB2C 
iB2F 
1B52 
1533 
1855 
1B37 
1539 
1B3B 
1BSD 
1B3D 
1B40 
iB4l 
1B42 
1B43 
1B44 
1B45 
iB4& 
15849 
1B4A 
1B4D 
1B4E 
iB4F 
1B50 
1B52 
1B52 
1B52 
1B52 
1B55 
1B5& 
1B57 
1B5A 
iBSD 
1BSE 
iBSF 
1Böl 
1B653 
1B66 
1B&6 
1B58 
1B69 
1BöA 
iB&B 
1BöC 
1BöD 
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BA 


48 


iB 


ic 


1A 


Sc 


Sc 


RES 7,(IY+1) 
CALL #19FE 


kDR A 


LD (SUBPPC),A 


DEC A 

LD (ERRNR),A 
JR $18B29 
RST BETNXT 
CALL $16BF 
INC (IY+$D) 
IP M,$iCBA 
RST BETAKT 
LD B,0 

CP $D 

JR Z,$1BB3 


JR 2,$1B28 


LD HL,BRKTST 
PUSH HL 

iD C,A 

RST GETNXT 
LD A,C 

SUB $CE 


IP C,$1CBA 
LD C,A 

LD HL,BEFOFF 
ADD HL,BC 

LD C,(HL) 
ADD HL,BC 

JR $1B55 


; 
PARHOL LD HL, (TADDR) 


LD A,(HL) 
INC HL 


LD (TADDR)I,HL 


LD BL,$1B52 
PUSH BE 

LDd 6,A 
= 

JR NE,$1BöF 
LD HL,$1C01 


LD B,0 
ADD HL,BC 
LD C,cHL) 
ADD HL,BC 
PUSH HL 
RST GBETAKT 
DEC B 


ee 1 BE a 


-— NE a a EEE a EEE u EEE u NE u TE —.— ME u TEE u TE u TE u 


EEE Eu NEE u 


u NEE 


_—.—— 1 a EEE 
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} 
HAUPTROUTINE DES BASICINTERPRETERS MIT SYNTAXPRUÜFUNG 


SYNTAXPRUÜFUNG ANMERKEN 

CHADD AUF ERSTES ZEICHEN NACH 
DER ZEILENNUMMER SETZEN 
PDINTER IN DIE BASIECZEILE 

AUF NULL SETZEN 


KEIN ERROR 


DAS NÄCHSTE ZEICHEN EINLESEN 
WORKSPACE LÖSCHEN 

SUBPPC +1 

NUR 127 ZEICHEN PRO ZEILE 
EIN ZEICHEN HOLEN 

BE FüR TABELLE MIT Ö LADEN 
ZEILENENDE ? 

JA 

TRENNUNGSZEICHEN ? 

JA, DBEN WEITER 


RETURNADRESSE FÜR 

BREAKTEST AUF STACK LEGEN 
ZEICHEN NACH EC KOPIEREN 
POINTER IN DER ZEILE +1 
VORHERIGES ZEICHEN LADEN 

$CE VON DEN TDKEENS ABZIEHEN 
BEREICH JETZT $00 - $31 

WAR KEIN TOKEN: ERROR 

FüR TABELLE NACH C BRINGEN 
ADRESSE DER BEFEHLSOFFSETTAB. 
TOKENWERT ADDIEREN, UM DEN 
OFFSET NACH EC LADEN, DIES 
ERGIBT ZEIGER AUF DIE BEFEHLS- 
PARAMETER AR #iA7A UND SPRUNG 


DIE PARAMETER DER BEFEHLE WERBEN AUSGEWERTET 


ZEIGER AUF NÄCHSTEN PARAMETER 
IN REG A LADEN 

POINTER +1 

FüR NÄCHSTEN PARAMETER 
RETURNADRESSE FüR WEITERE 
PARAMETER HOLEN UND AUF STACK 
ZWISCHENSPEICHERN 

IST ES EIN SEPARATOR (,„ ETC.) 
JA 

ADRESSE DER FARAMETEROFFSET- 
TABELLE 


DEN PARAMETER DAZUADDIEREN 
DFFSET AUS TABELLE LADEN 
UND ADDIEREN FÜR 
RETURNAUFRUF 

LETZTEN BEFEHL NOCH MAL 
LADEN UND B AUF $FF SETZEN 


IBöE 
LBöF 
iBöF 
1BöF 
iBSF 
iBöF 
iBör 
1B70 
1B71 
1B74 
1875 
1B7& 
iB7&5 
1B7& 
1B765 
1B75 
1679 
1B7B 
1B7E 
LETC 
1B7D 
1B7D 
iBBi 
1BB2 
1883 
1EB& 
iER3 
1BBA 
1BSA 
1BSA 
1BBA 
1EBA 
iBBA 
iB8D 
1B90 
1693 
1594 
1E9E 
1599 
ı BSC 
iB9E 
1B9E 
ıAB9E 
1B9E 
1EA1 
iBA4 
1BA& 
1BA7? 
ıBA? 
15A9 
1BAA 
iBAB 
iBAD 
iBAE 
iBBO 
iBBO 
1BBO 
iBBi 


69 


8A 


Co 


GF 


ic 


19 
Sc 


FR 


oc 


} 
: 


. 
’ 


RET 


; 


’ 


HIER SPRUNG AN DIE BERECHNETE 
ADRESSE 


DER SEPARATOR GEMÄSS FARAMETERTÄBELLE, STEHT IN REG C, 
MUSS AN DIESER STELLE IN DER ZEILE ZU FINDEN SEIN 


RST GBETAKT 
CP C 

IP NZ,$1CBA 
RST BETNKT 
RET 


. 
’ 
“ 
y 
” 
’ 
” 
’ 


ZEICHEN NOCH MAL LADEN 

UND VERGLEICHEN 

WENN UNGLEICH: ERROR 

SONST FOINTER AUF NÄCHSTES 
ZEICHEN SETZEN 


NACH JEDEM RICHTIGEN BEFEHL WIRD AN DIESE STELLE, ZUM 
PRÜFEN DER BREAKTASTE, 


BRKTST CALL $1F54 


’ 


JR C,#1B7D 


RST ERRAUS 
‚BYT #14 


BIT 7,(1Y+10) 
IR NZ,FIBF4 


LD HL, {NEWPPEC) 


BIT 75H 
JR Z,$1B9E 


ROUTINE FÜR "RUN 


DAS SYNTAX/RUN-FLAG (7 


LD HL,$FFFE 
LD (PPC) HL 
LD HL,(WORKSP) 
DEC HL 

LD DE,{ELINE) 
DEC DE 

LD A,(NSPPE) 
JR $1BD1 


’ 


ee 


ZURÜCKGEKEHRT 


TEST, OB BREAK GEDRUCKT 
NEIN 


SONST MELDUNG "BREAHK INTD 
FROGRAMM’ AUSGEBEN 


IST EIN SFRUNG AUSZUFÜHREN ? 
NEIN 


SONST NEUE ZEILENNUMMER LADEN 
SPRUNG IM PROGRAMM ? 

JA, DIE ZEILE SUCHEN 

SONST IST ES DER BEFEHL RUN 
VON FLABS) IST DANN GESETZT 
STARTZEILE MIT -2 VORBESETZEN 


HL ZEIGT AUF ENDEMARKIERUNG 
DES EDITORBEREICHS UND DE KIRD 


MIT DER ADRESSE VOR DIESEM 


BEREICH GELADEN 
REG A ENTHÄLT DEN NÄCHSTEN 
BEFEHL ZUR WEITERVERARBEITUNG 


NEUE ZEILE NACH EINEM SPRUNSBEFEHL SUCHEN 


CALL &196E 
LD A,(NSPPE) 
JR Z,$1BBF 
AND A 

JR NZ,$1BEC 


LD B,A 

LD A,CHL) 
AND $C0 

iD A,B 

JR Z,$1BBF 


RST ERRAUS 
«BYT $FF 


3 TEE ae TEE a 


ADRESSE DER ZEILE BESTIMMEN 
BEFEHLSNUMMER DER ZEILE LADEN 
DIE ZEILE WURDE GEFUNDEN 

SDNST MUSS BEFEHLSNUMMER 6 SEIN 
WENN NICHT, ERROR 


REG A RETTEN 

HIEHTBYTE DER ZEILENNUMMER 
LADEN UND AUF GULTIGKEIT PRÜFEN 
REG A ZURÜCK 

KEDER NACH PROGRAMMENDE NOCH 
FALSCHE ZEILENNUMMER 


MELDUNG: 
'gK° 
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iBB2 


’ 
iBEB2 ; EINSTIEG BEI DEM BEFEHL ’REM’ 
iBB2 ; DURCH ENTFERNEN DER RETURNADRESSE BRKTST WIRD DER REST 
iBB2 ; DER ZEILE IGNORIERT 
iBB2 ; 
iBB2 Ci POP BC ; BRKTST WEGWERFEN 
1BB3 ; 
1BB5 ; BEHANDLUNG DER ZEILE, WENN DAS ENDE GEFUNDEN WURDE 
1iBB3 ; 
iBB53 CD 30 25 CALL #2550 ; FALLS SYNTAXPRÜFUNG, DIREKT 
iBBö CB RETZ ; RETURN 
1BB7 ; 
iBB7 2A 55 SC LD HL, {NÄTLIN) ; POINTER AUF NÄCHSTE ZEILE 
ıiBBA 3E CO LD A,#CD ; LADEN UND UNTERSUCHEN, OB DAS 
IBBC Aö AND (HL) ; FROGRAMM ZU ENDE IST 
iBED CO RET NZ ; JA 
1BBE - 
IBBE AF XOR A ; NEIN: BEFEHL ZU 0 SETZEN 
iBBF 
iBBF DIESE ROUTINE HOLT DIE NEUE ZEILENNUMMER NACH 'PPC'‘ 


.. a. "BE 1m 


iBBF UND SUCHT DEN BEGINN DER DARAUFFOLGENDEN ZEILE 
iBBF 

iBBF FE öl EP 1 ; HIERMIT WIRD BEFEHL OÖ ZU 
ıBCi CE 00 ADC 0 : BEFEHL 1 BESETZT 

1BC3 5% LD D,(HL) ; ZEILENNUMMER IN 

iBC4 23 INC HL ; DE LADEN UND 

iBC5 SE LD E,CHL} 

iBC6 ED 53 45 SC LD IPPE);,DE ; IN PPC SPEICHERN 

iBCA 23 INC HL ; LÄNGE DIESER ZEILE 

iBCB SE LD E.£HL) ; NACH DE LADEN 

IDEE 28 INC HL 

IBCD 55 LD D, (HL) 

iBCE EB EX: DE,HL ; LÄNGE UND POINTER AUSTAUSCHEN 
ipeF 19 ADD HL,DE ; HL ZEIGT AUF HIGHTBYTE DER 
iBDO 23 INC HL ; ZEILENNUMMER (=ANFANG) DER 
iBDi ; NÄCHSTEN ZEILE, DE AUF 1. 
1BD1 ; BEFEHL-1 DER VORHERIGEN ZEILE 
iBDI $ 

iEDi ; VARIABLE FüR NÄCHSTE ZEILE SETZEN: 

1BDi H 

iBDI 22 95 96 LD {NXTLIN),HL ; BEGINN DER NÄCHSTEN ZEILE 
iBD4 EB EX DE,HL 

iRD5S 22 5D 5C LD (CHADD),HL ; CHADD ZEIGT AUF NÄCHSTEN 
ıBDB ; BEFEHL-I 

ıBDe8 57 LD D,A ; BEFEHL KOPIEREN 

1EDB9 IE 00 LD: E,d ; E MIT 0 VORBESETSEN 

iBDB FD 36 0A FF LD {IY+$A),$FF 3; NSPPC: KEIN JUMP ANMERKEN 
1BEBF 15 DEC D ; BEFEHLSNUMMER-1 NACH 

IBEO FD 72 OD LD (IY+$D),D ; SUBFPC BRINGEN 

IBES CA 28 1B JF Z2,*1B28 ; NEUE ZEILE: ERSTEN BEFEHL 
iBE& ;s UNTERSUCHEN 

iBE& 14 INC D ; BEFEHLSZAHL DER ZEILE KOR- 
iBE? ; RIGIEREN UND DIE ADRESSE-1 
IBE7’ CD 8B 19 LALL #198B ; DAZU BESTIMMEN 

iBEA 28 08 JR Z,$1BF4 ; BEFEHL GEFUNDEN 

1BEC \ 

BER CF RST ERRAUS ; MELDUNG: 

iBED 15 .BYT #15 ; "STATEMENT LOST’ 
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IBEE 


IBEE ED 30 29 CALL #2530 s SYNTAXPRUFUNG ? 

ÄBFi 69 RET NZ ; NEIN: RETURN (PROGRAMMLAUF) 
iBF2 C1 POP BE ; JA: 2 * RETURNADRESSE 

iBrs Ei POP EC ; WEGWERFEN 

iBF4 - 

1EF4 ; NÄCHSTEN BEFEHL FINDEN: 

iBF4 ; BEI CARRIAGE RETURN IN DER NÄCHSTEN ZEILE, BEI 
iBF4 : "s” IN DER GLEICHEN ZEILE, 

iBF4 ; ALLE ANDEREN ZEICHEN BEDEUTEN SYNTAX-ERROR 

1BF4 - 

1BF4 DF RST GETAKT ; AKTUELLES ZEICHEN LADEN 
iBF5S FE OD CP $D ı ZEILENENDE. ? 

iBF7 28 BA JR Z,#1BB3 s JA, NÄCHSTE ZEILE SUCHEN 
ıiBF9 FE 3A 7 a ; BEFEHLSTRENNUNG ? 

iBFE CA 28 iB JP 2,$1B28 ; JA: WEITER IN DER INTERPRETER- 
ıBFE ; SCHLEIFE ZUM NÄCHSTEN BEFEHL 
iBFE C3 BA Ic JP #1C8A ; SONST ERROR ’NONSENS.. 
1C01 ‚END 

1C01 „LIB SPECLEOO-S 

ıiC0i ; SINCLAIR ZX SPECTRUM TEIL 1606 

1601 - 

1661 s DIE OFFSETTABELLE FüR DIE EINZELNEN BEFEHLSPARAMETER 
ı1C61 : 

ic0l ör „BYT Or : PAROO $1L10 

1C02 1D .BYT #1D : PARDI $I1C1F 

IC03 4B .BYT $4B ; PARO2 $1C4E 

1694 09 .BYT 309 ; FAROF #1C0D 

1605 57 .„BYT $67 ; PARO4 $1C5C 

1C0& OB «BYT #0B ;s PARDS $1C11 

1607 7B .BYT $7B s FARÜOS #1C82 

iC08 8E ‚BYT #8E ; FARO? #1696 

1609 71 «BIT #71 ; PARÖB $iC7A 

IC0A B4 .BYT $B4 ; FAROY FICBE 

iCöB 81 .BYT #81 ; PARÖA $1C8C 

ICöC EF „BYT $CF ; FARÖB #1CDB 

iC0D ; 

1C0D ; 

1C0D s PARAMETER 03: ES KANN EINE ZAHL FOLGEN 

1COD ; 

iC0D CD DE IC CALL #1CDE ; EINE ZAHL EINLESEN, Ö FALLS 
1C10 ; KEINE GEFUNDEN WIRD 

1C10 - 

1C10 ;s PARAMETER 00: ES DÜRFEN KEINE ANGABEN FOLGEN Z.B. COPY 
1C10 : 

iC10 BF [CP A ; ZEROFLAG SETZEN 

1c11 

153113 PARAMETER 05: ES KÖNNEN AUSDRÜCKE FOLGEN: 


. .- we ne 


ıc11 1. B. PRINT"SPECTRUM" 

1611 

ic11 ci POP BC ; RETURNADRESSE WEGWERFEN 

iC12 CC EE 1B CALL Z,$1BEE ; NUR BEI PAROO UND 01 SYNTAX- 
1615 ; PRÜFUNG + ZUM NÄCHSTEN BEFEHL 
IC15 EB EX DE,HL ; ZEILENZEIßER NACH DE 

iC1& ; JETZT KANN, NACH ERFOLGTER PRÜFUNG, AUS DER PARAMETER- 
1616 ; TABELLE DER EINZELNEN BEFEHLE DIE SPRUNGADRESSE 

1C16 ; GELADEN UND AUF DEN STACK GESCHOBEN WERDEN 

1616 ; 
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1616 
1619 
1C1iA 
ıC1B 
Icic 
iC1D 
IC1E 
ıIcıF 
iciF 
ıcirF 
ıciF 
1622 
1622 
1025 
1028 
ıc2Ec 
IC2ZE 
IC2ZE 
IC2E 
ICZF 
1630 
1030 
1633 
1033 
1033 
1637 
16359 
1C3A 
1C5D 
1640 
1640 
16043 
1C44 
1645 
1045 
16046 
1046 
1045 
1646 
1646 
1045 
1C4& 
1C4A 
1C4D 
IC4E 
IC4E 
IC4E 
1C4E 
IC4E 
IC4F 
1652 
1055 
1055 
1056 
10565 
1056 
1056 
1056 
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96 


fl 


43 
4D 


36 
EE 


01 


72 
Sc 


1c 
iB 


00 


GE 


76 


oc 


’ 


OH Er ar Eu TE u EEE 


Bu u ME eo we. wa. 


LD HL,(TADDR) ; ZEIGER IN DIE TABELLE 

LD 6, HL) ; REGISTER BC MIT 

INC HL 

LD B,CHL) ; DER SPRUNGADRESSE LADEN 

EX DE,HL ; ZEILENZEISER NACH HL ZURÜCK 
PUSH BE ; SPRUNG IN BIE ROUTINE 

RET ; DURCH RETURNBEFEHL 


PARAMETER Ol: VARIABLENZUWEISUNG BEI LET 


CALL $28B2 ; NACHSEHEN, OB DIE VARIABLE 
; SCHON BENUTZT WORDEN IST 
LD (IY#+$37),0 5. FLAGX INITIALISIEREN 
JR NC,$1C30 ; VARIABLE WURDE SCHON BENUTZT 
SET 1,(1Y+55) 5; NEUE VARIABLE ANMERKEN 
JR NZ,$1046 ; ALLES OK, AUSSER BEI EINEM 
; NICHT DIMENSIONIERTEN ARRAY 


RST ERRAUS ; ERROR "VARIABLE NDT FOUND’ 
„BYT $01 ; AUSGEBEN 

CALL 7,*2996 EINFACHE STRING- ODER ARRAY- 
FARAMETER AUF DEN CALEULATOR- 
STACK BRINGEN 

SPRUNG BEI NUMERISCHER 
VARIABLEN 

REEA=0 

SYNTAXPRÜFUNG ? 

NEIN: STRING- ODER 
ARRAYFARAMETER HOLEN 

BIT 6 BEI EINFACHEN STRINSS 


BIT 6, (IY+1) 
JR NZ,$1046 
XOR A 

CALL $2530 
CALL NZ,$2BFi 


LD HL,FLAGX 


DR (HL) SETZEN UND DAMIT ANMERKEN, DIE 
LD (HL},A ALTEN WERTE ZU ENTFERNEN 
„EX DE,HL HL ZEIET AUF STRINGS DDER EIN 


. . a. .-—0 a Ma —.- u. ... -. we. 


ELEMENT EINES ARRAYS 


FÜR ALLE NUMERISCHEN UND NEUEN STRING- DDER 
STRINGARRAYVARIABLEN ENTHÄLT C DEN VARIABLENNAMEN. 
FÜR ALTE STRING- ODER STRINGARRAYVARIABLE ENTHÄLT BC 
DIE LÄNGE FüR DIE ZUWEISUNG 


LD (STRLEN) ‚BE 
LD (DEST),HL 5; FÜR ZUWEISUNG SETZEN 
RET 


PARAMETER 02: AKTUELLE BERECHNUNG FüR ZUWEISUNG EINER 


VARIABLEN IN EINEM LET-BEFEHL DURCHFÜHREN 


POP BC ; EINE RETURNADRESSE WEGWERFEN 
LALL #1C55 ; ZUWEISUNG DURCHFÜHREN 

CALL #1BEE ; ENDEPRÜFUNG, ZUR LAUFZEIT 
RET ; JEDOCH ZUM NÄCHSTEN BEFEHL 


DIESE ROUTINE WIRD VON LET, READ UND INPUT BENUTZT UM 
ERST EINE VARIABLE ZU BERECHNEN UND DIESE DANN 
ZUZUWEISEN. INPUT BENUTZT FLASX UND STEIGT BEIM 
ZWEITEN BEFEHL EIN 


10565 
1659 
1C5A 
IC5D 
IC5E 
1051 
1C&2 
1654 
10665 
1658 
ICöB 
1C6C 
1C5C 
ickt 
ICö5C 
ICöF 
1670 
1671 
1075 
1674 
1676 
1677 
1679 
1679 
1679 
1679 
1679 
16797 
1679 
1679 
1C67A 
1C7D 
IG7F 
1CBi 
1682 
1682 
1C82 
1682 
1655 
1689 
ılCEA 
1C8A 
iCBEB 
ICBc 
iCBt 
iCcet 
1CSC 
iCc8F 
1693 
1694 
1695 
1695 
1696 
1695 
ıC9A 
1C9E 
ICcAl 
1CA2 


14 


A? 


82 
at 
09 


FB 
CR 


ER 


SC 
24 


Öl 


2A 


28 


m 
. 


51 


24 
Öl 


ol 
02 
üD 


Sc 


76 


7& 


7E 
B& 


LD A,(FLAGS) 


PUSH AF ; FLABS ODER FLAGX RETTEN 

CALL $24FB ; NÄCHSTEN AUSBRUCK BERECHNEN 

POP AF ; FLABS/FLABX ZURÜCK 

LD D,(IY+i) ; FLABS NEU LADEN 

XOR D ; DIE ART UND DER AUSDRUCK MÜSSEN 
AND $40 ; ÜBEREINSTIMMEN 

JR NZ,$1CBA ; ERROR ’NONSENS.. 

BIT 7,D ; ZUWEISUNG DURCHFÜHREN, FALLS 

JP NZ,$2AFF ; ZUR LAUFZEIT 

RET ; BEI SYNTAXPRÜFUNG RETURN 


PARAMETER 64: EINSTIEG FüR FOR..NEXT-BEFEHLE 


CALL #28B2 DIE BENUTZTE VARIABLE SUCHEN 


3 
PUSH AF ; STATUSREBISTER RETTEN 
LD A,C ; PRÜFEN, DE DIE VARIABLE 
DR $9F ; EINE FOR..NEXT-VARIABLE 
INC A ; IST 
IR NZ,$1CBA ; NEIN: ERROR 
POP AF ; SONST STATUS ZURÜCKLADEN 
IR $1022 : UND DIE ZUWEISUNG VORBEREITEN 


DIE FOLGENDEN ROUTINEN DIENEN DEM BERECHNEN VON 
NUMERISCHEN AUSDRÜCKEN, DAS JEKEILIBE ERGEENIS KOMMT 
ALS LETZTES AUF DEN CALCULATORSTACK 

BER ERSTE EINSTIEGSSPUNKT DIENT DEM BERECHNEN VON ZWEI 
DURCH KOMMA GETRENNTEN AUSDRÜCKEN {PAR 08) 


RST GETNXT ı CHADD+1, NÄCHSTES ZEICHEN HOLEN 
GALL #ICB2 ; ERSTEN AUSDRUCK AUSRECHNEN 
GBP ";' ; WENN TRENNUNG NICHT DURCH 
JR NZ,#1CBA ; KOMMA, DANN ERROR 
s 


RST SETNÄT NÄCHSTES ZEICHEN LADEN 


AB HIER NUR EINEN AUSDRUCK BERECHNEN 


CALL $24FE ; NACHSTEN AUSDRUCK BERECHNEN 
BIT 2,{1Y+1) ; RETURN, WENN DAS ERGEBNIS 
RET NZ ; NUMERISCH, SONST: 

RST ERRAUS ; MELDUNS: 

.EYT &£0B ; "NONSENS IN BASIC’ 


BERECHNUNG EINES EINFACHEN STRING-AUSDRUCKS 


CALL #24FB ; NÄCHSTEN AUSDRUCK BERECHNEN 
BIT 3,{l1Y+1) ; BIT& FLAGS =0 = STRING, 

RET Z 

JR £1C03A ; SDNST ERROR 


PARAMETER 07: SETZEN DER DAUERHAFTEN FARBEN 


TEST SYNTAX/RUN-FLAG 
HAUFTEILDSCHIRM ANMERKEN 
AUFRUF WÄHREND PROGRAMMLAUF 
RETURNADRESSE WEGWERFEN 
TADDR-LOW LADEN UND IN DEN 


BIT 7,(IY#1) 
RES O,t1Y+2} 
CALL NZ,$D4D 
POP AF 

LD A,(TADDR) 


u EN 
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1CAS 
1CA7 
ı1CA7 
1CAA 
ıiCcAD 
iCAD 
ICBO 
ı1CB3 
ICB& 
1CB7 
iCBB 
1CB9 
ICBB 
ICBC 
1CBD 
ICBE 
ICBE 
iCBE 
ICBE 
ICBE 
ICBE 
1CC1 
ICC3 
1CC7 
ICcA 
1CCA 
ICcD 
ICCE 
ICDO 
iCcDi 
1CD5 
iCD& 
1CD? 
1CD9 
ICDB 
iCDB 
ICDE 
ICDE 
iCDB 
ICDE 
iCDE 
ICDE 
ICDE 
iCDE 
iCDE 
ICEO 
ICE2 
ICE4 
ICEö 
iCE& 
ICE& 
ICEö 
ICE& 
1CE9 
1CEA 
ICEB 
ICEC 
ICED 
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63 


AA 


05 


OD 
04 


zT 
“ 


gc 


30 


27 


21 


05 


25 


85 


B& 


-— 08 a. [| an 


u ME un 


-—-— ME u TEE 


-—— 0 | a ie 


SUB #13 BEREICH #D9 BIS $DE FÜR DIE 
TOKENS INK BIS QOVER BRINGEN 

CALL $21FC TEMPORÄRE FARBEN ÄNDERN 

CALL $iBEE ZUM NÄCHSTEN BEFEHL BEI 


SYNTAXPRÜFUNG 

SONST DIE TEMPORÄREN FARB- 
WERTE ZU DEN DAUERHAFTEN 
MACHEN 


LD HL,(ATTRT) 
LD (ATTRP) HL 
LD HL,PFLAG 


. u ee a 3 WR oo. (BE u NEE a NEE un 


LD A, (HL) DIE GERADEN BITS IN DIE 

RLCA UNGERADEN KOPIEREN, SODASS DIE 
XDR (HL) TEMPORÄREN EBENFALLS ZU DEN 
AND $AA DAUERHAFTEN WERDEN 

XOR (HL) 

LD (HL) ,A 

RET 


PARAMETER 09: DIESE ROUTINE WIRD VON PLOT, DRAW UND 
CIRCLE BENUTZT, UM ERST EINMAL DIE DEFAULTWERTE VON 
FLASH, BRIGHT UND PAPER AUF 8 ZU SETZEN 


CALL $2530 ; SPRUNG, WENN NUR 

JR Z,$1CD6 ; SYNTAXPRÜFUNG 

RES 0, (1Y+2) ; TVFLAG: HAUPTBILDSCHIRM 

CALL $D4D ; TEMPORÄRE FARBEN DES HAUPT- 
’ 


BILDSCHIRMS SETZEN 
LD HL,MASKT 


LD A,(HL) VON MASKT NUR DIE 'INK’-WERTE 
OR $F8 ÜBERNEHMEN, FLASH, BRIGHT 

LD {HL),A UND PAPER SIND DAMIT 8 

RES 5, (IY+$57) PFLAG: NICHT PAPER 9 SETZEN 
RST GETAKT NOCH MAL DAS LETZTE ZEICHEN 


CALL $21E2 DIE LOKALEN, DOMINANTEN FARB- 
WERTE BEARBEITEN 
DIE ERSTEN ZWEI DPERANDEN 


VERARBEITEN 


JR #1C7A 


a NE a EEE a en 


PARAMETER OB: ALLE KASSETTENROUTINEN 
JP #605 
ROUTINE UM EINEN NUMERISCHEN AUSDRUCK ZU BERECHNEN. 


ES WIRD DER WERT NULL ÜBERGEBEN, FALLS KEIN AUSDRUCK 
VORHANDEN IST 


CP #D ; ZEILENENDE ? 

JR 2Z,$1CE& ; JA 

> u 5 ; TRENNUNGSZEICHEN ? 
JR NZ,$1CB2 ; NEIN 


SONST DEN CALEULATOR BENUTZEN UND EINE NULL IM 
CALEULATORSTACK ADDIEREN 


CALL #2530 FALLS SYNTAXPRÜFUNG, NICHTS 


; 
RET Z ; BERECHNEN UND RETURN 
RST CALRUF ; SONST CALCULATORAUFRUF 
„EYT $A0 ; LETZTER WERT = 0 
„BYT $38 ; ENDE, DAMIT WURDE DIE NULL 
RET ; ADDIERT 


iCEE 
iCEE 
LCEE 
iCEE 
iCEE 
icEE 
ICEF 
icFö 
ICFO 
iCFO 
ICFO 
iCcFi 
icF4 
ICF& 
1CF7 
ıiCF8 
LCEF9 
iCFA 
iCFD 
1D00 
1D00 
1063 
1003 
1003 
1D03 
1003 
1005 
1097 
iDOB 
iDOB 
ıDOE 
ı1DOE 
1Di0 
1D10 
1D13 
1014 
1D15 
1Diä 
1Diä 
1Did 
1015 
1Did 
1015 
1D17 
1D18 
1D19 
1DiA 
ı1DiB 
1D1C 
ı1DiD 
1iDiD 
1DiD 
1D20 
1D20 
1D23 
1023 
1D24 
1025 


CD 30 


25 


934 


iB 


iB 


ic 
iB 


iE 


CD FF ZA 


22 68 SC 


-——_ ME a a Tan 


u a 


— WE u En Ta 


BEFEHL STOP 


RST ERRAUS 
«BYT #08 


BEFEHL IF 


POP BC 
CALL $2530 
JR Z,$1D00 
RST CALRUF 
„BYT $02 
„BYT $38 
EX DE,HL 
CALL $34E9 
IP C,$1BB3 


JP $1B29 


BEFEHL FOR 


CP $CD 


JR NZ,#1D10 


RST GETNXT 
CALL #1C32 
CALL $1BEE 


JR $1D15 


CALL $#1BEE 
RST CALRUF 
.BYT $Al 
.BYT #28 


RST CALRUF 
‚.BYT $C0 
«BYT $02 
.‚BYT öl 
‚.BYT $EO 
:BYT #01 
.BYT #38 


CALL $2AFF 
LD (MEM) „HL 
DEC HL 


LD A,(HL) 
SET 7, (HL) 


DIE FOLGENDEN ROUTINEN 


— Eu EEE NEE a EEE a 


..: ME ne TEE ea 


; 
; 
} 
; 


DIE LETZTEN DREI WERTE 
DER WERT DER VARIABLE 
DIE SCHRITTWEITE 


(5) 


—.:. .- (A u ER 


DIENEN DER BEFEHLSAUSFÜHRUNG 


NUR AUSGABE VON 
"STOP STATEMENT 


RETURNADRESSE #1B76 WEGWERFEN 
SPRUNG BEI 

SYNTAXPRÜFUNG 
CLACULATDRAUFRUF 

LÖSCHE LETZTEN CALCULATOR- 
STACKWERT; ENDE 

HL ZEIST AUF DEN LETZTEN WERT 
TEST AUF NULL 

WERT NACH IF NICHT WAHR: DIE 
ZEILE IST FERTIG, ZUR NÄCHSTEN 
SONST ZUM NÄCHSTEN BEFEHL 
NACH THEN 


MIT STEP 
NEIN 
CHADD+1, NÄCHSTES ZEICHEN 
WERT FüR STEP HOLEN 

ZUM NÄCHSTEN BEFEHL BEI 
BEI SYNTAXFREFUNG 
ANDERNFALLS WEITER 


(SCHRITTWEITE) ? 


SYNTAXPR.: NÄCHSTER BEFEHL 
SONST CALCULATORAUFRÜF 

UND EINE i ALS DEFAULTWERT 
FÜR STEF NEHMEN 


DES CALCULATORSTACKS SIND: 
(W), DIE DRBERGRENZE (D) UND 


CALEULATORAUFRUF 
W,0,5, 5 NACH MEMÖ 
0, 5 LÖSCHEN 

W, VERTAUSCHEN 
W,S, MEMD HOLEN 
5,4, VERTAUSCHEN 
D 


) 
‚ 
' 
; 
; 
N 


VARIABLE SUCHEN {KW) 
ANLEGEN 

ZU EINEM SFEICHERBEREICH 
MACHEN 

ZEIGT AUF VARIABLENNAME 
LADE DEN NAMEN 
BIT 7 SETZEN: 


DDER 


FOR-VARIABLE 
109 


; EINFACHE VARIABLE: & FLÄTZE 
ÜBERSPRINGEN 


1027 51 6& 00 LD BC,5 
ı1D2A 69 ADD HL,BC 


’ 

5 
iD2B 07 RLCA ; WAR ES SCHON EINE FOR-VARIABLE? 
iD2t 38 05 JR C,$1D34 ı JA 
ID2E GE OD LD 6, $D » SONST 13 ZUSATZLICHE 
1D530 CD 55 16 CALL $1555  SPEICHERPLÄTZE BESCHAFFEN 
1023 23 INC HL ; HL ZEIGT AUF "OBERGRENZE' 
1D54 ES FUSH HL ; ZWISCHENSPEICHERN 
1035 EF RST CALRUF ; 0,5, EALCULATDRAUFRÜF 
1D56 02 ‚BYT $02 ; D, LÖSCHE SCHRITTWEITE 
1D37 02 .BYT $02 ; -,LöSCHE DBERGRENZE 
1D38 38 .BYT $38 : ENDE (DE ZEIGT AUF '0°) 
10539 Ei POP HL ; POINTER ZURÜCKHODLEN 
ıiD5A EB EX DE,HL  POINTER FüR TRANSFER TAUSCHEN 
ı1D:B GE OA LD +10 ; ZEHN BYTES Für 'D°’ UND 
iD5D ED BO LDIR ‚ '5' VERSCHIEBEN 
ıiD53F 2A 45 SC LD HL, (PFE) ; DERZEITIGE ZEILENNUMMER 
iD42 EB EX DE,HL ; TAUSCH ZEILENNUMMER - PDINTER 
1D43 73 ED IHLI,;E ; ZEILENNUMMER AN FOR-VARIABLE 
ı1D44 23 INC HL ı DRANHÄNGEN 
1D45 72 LD (HL),D 
1D45 FD 55 OD LD D,(IY+&D) ÜBER SUBPPC DEN NÄCHSTEN 
ı1D49 14 INC D ; BEFEHL LADEN UND EBENFALLS 
iD4A 23 INC HL 
iD4B 72 LD (HLI,D ; AN FOR-VARIABLE HÄNGEN 
1D4C ; 
ıD4C s ES FOLGT DER TEST, OB EINE FOR-NEXT-SCHLEIFE AUSBE- 
ıiD4C ; FÜHRT WERDEN KANN. WENN JA: RETURN, SONST MUSS 
ı1D4C ; NÄCHSTE BEFEHL HINTER NEXT GEFUNDEN WERDEN 
1D4c } 
iD4C CD DA iD CALL $#1DDA ; OBERGRENZE FOR-NEXT ERREICHT? 
IiD4F DO RET NE ; NEIN 
1D50 ; 
1D50 FD 45 38 LD B,(IY+#$3B) ı VARIÄABLENNAME LADEN 
1053 2A 45 SC LD HL, {PPC} ; DERZEITIGE ZEILENNUMMER 
1056 22 42 56 LD {NEWPPE) ,HL ; ZUR NEUEN ZEILENNUMMER MACHEN 
1059 3A 47 SC LD A, (SUBPFE) s BEFEHLSZAHL IN DER ZEILE 
iDScC ED 44 NEG ; LADEN, ZWEIERKOMPLEMENT BILDEN 
IDSE 97 LD D,A ; NACH REG D BRINGEN 
iDäF ZA SD SC LD HL, (CHADD) ; AKTUELLER WERT CHADD 
iD&2 1iEFS LD E,$F3 ; DAS TGKEN ’NEXT’ WIRD GESUCHT 
1D64 65 PUSH BC s VARIABLENNAME SPEICHERN 
1D65 ED 48 55 SC LD BC,{NXTLINI ; AKT. WERT VON NÄCHSTER ZEILE 
1D69 CD 85 iD CALL $1D85 ; IM PROGRAMM JETZT ‘NEXT’ SUCHEN 
iDdt ED 453 55 SEC LD (NXTLIN),EC ; NEUER WERT ’NACHSTE ZEILE’ 
1D70 Ci POP BC ; VARIABLENNAME ZURÜCK 
1D71 38 11 JR C,#1D84 ; KEIN NEXT GEFUNDEN: ERROR 
ıD73 E RST GETNAT ;s CHADD+1, NÄCHSTES ZEICHEN NACH 
1D74 ; NEXT LADEN: VARIABLENNAME 
1D74 F& 20 OR #20 ; KLEIN- UND GROSSBUCHSTABEN ZU- 
1D7& EB CP B ; LASSEN UND VERGLEICHEN 
1D77 28 03 JR Z,$1D7C ; NAME STIMMT 
1073 E73 RST GETNÄT ; CHADBB +1 UND 
1D7A 18 EB JR $1Ds4 ı WEITERSUCHEN 
1D7C ; 
ı1D7EC ; NEWPPC ENTHÄLT NUN DIE ZEILENNUMMER, IN DER DAS 
iD7C ; RICHTIGE NEXT-STATEMENT GEFUNDEN WURDE, DIE BEFEHLS- 


1D7C ZAHL DES 'NEXT' WIRD GESUCHT UND IN NSPFE GESPEICHERT 
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1D7C k 


10/6 E£7 RST GETNXT ; CHADD+1 

1D7D 3E di LD A,1 ; DA D RüCKWARTS GEZÄHLT WÜRDE, 
IiD7’F 92 SUB D ; MUSS DIESER WERT VON I FÜR 
iDso 32 44 SC LD (NSPPE),A ; NSPPC ABGEZOGEN WERBEN 

1085 19 RET 

ıiD84 j 

ı1D84 CF RST ERRAUS ı FEHLERMELDUNG: 

1085 11 .BYT #11 ; "FOR without NEXT’ 

1D86 - 

1085 s DIESE ROUTINE DURCHSUCHT DAS PROSRAMM NACH 'DATA', 
1D85 ; "DEF FN’ UND ’NEXT’. TOKEN IM RESISTER E UND START- 
iD865 ı ADRESSE DES SUCHENS IN HL 

ı1D85 ; 

1085 7E LD A, (HL) ; AKTUELLES ZEICHEN 

1D87 FE 3A u : WEITERE BEFEHLE IN DER ZEILE? 
1087 28 18 JR Z,#1DA3 ı JA 

iDEB 22 INC HL ; HL ZEIGT AUF ZEILENNUMMERHIGH 
iDSb ZE LD A,(HL) ; DER FOLGENDEN ZEILE 

iDSD Ed CO AND $C0 ; PROGRAMMENDE? 

iDeF 37 Sc ; CARRY SETZEN FüR FROGRAMMENDE 
iD90 CO RET NZ ; RETURN BEI ENDE 

ıD91 ; 

1D91 46 LD B,(HL) ; NÄCHSTE 

1092 23 INC HL 

1D93 4E [iD E,tBL) ; ZEILENNUMMER LADEN UND 

1D94 ED 43 42 SC LD (NEKWFFE) ,EC 3; IN NEWFPE SPEICHERN 

1098 23 ING HL ; ZEILENLÄNGE 

1D99 4E LD E,CHL) 

iD9A 23 INC HL 

iD9B 45 LD' B,(HL) ; LADEN 

1096 Es PUSH HL ; ZEIGER RETTEN 

1D9D 09 ADD HL,EC ;ı ENDE DER DERZEITIGEN ZEILE 
iDgE 44 LD B,H : AUSRECHNEN UND NACH BC 

ID9F 4) ED E,L ; BRINGEN {=NÄCHSTE ZEILE -1} 
IDAO Ei POP HL : ZEIGER WIEDER IN HL LADEN 
iDAi 15 00 LD D,o ; BEFEHLSZÄHLER AUF 0 SETZEN 
iDA3 65 PUSH BC : ZEILENENDE RETTEN 

iDA4 CD BB 19 ECALL #198B ; BEFEHLE DER ZEILE UNTERSUCHEN 
1DA7 Ci PBP BE ; ZEILENENDE IN BC ZURUCKHOLEN 
iDAB DO RET NE ; RETURN, WENN ETWAS GEFUNDEN 
iDA9 18 Eü JR #1DBE ı SONST IN DER NÄCHSTEN 

iDAB ; ZEILE KEITERSUCHEN 

1iDAB ; 

ıDAE ; BEFEHL NEXT 

LÄDAB ı DIE LAUFVARIABLE WIRD UM DEN STEF-WERT ERHÖHT 

iDAR ; 

iDAB FD CB 37 4E BIT i,tIY#+#37) 3; VARIABLE GEFUNDEN? 

tDAF CZ 2E IC JP NZ,#1C2E ; NEIN: ERROR 

iDB2 2A AD SC LD HL,(DEST) ; ADRESSE DER VARIABLEN 

iDBES CE 7E BIT 7,EHL) ; TEST DES NAMENS 

iDB? 28 IF JR Z,#1DD8 ; ERROR: "NEXT WITHOUT FOR’ 
ıiDEI 23 INC HL ; NAME ÜBERGEHEN UND DIE 

iDBEA 22 88 5C LD (MEM} „HL ı VARIABLE ZUM TEMFORÄREN 

iDED ; SPEICHER DEKLARIEREN 

iDED EF RST CALRUF ; CALCULATORAUFRUF 

IDBE E6 «BIT SED ; W, HOLE MEMÖ 

ıiDBF 2 :BYT $E2 : W,S HOLE MEM2 
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1DCO 
ıDC1 
iDCi 
1DC2 
1DE3 
iDc4 
1DC4 
iDC7 
1DE7 
ıiDCB 
iDCEB 
IDEE 
iDEF 
1DDO 
1DDi 
ıiDD2 
1DD3 
ıDD4 
iDD5 
ıDb8 
ıDD8 
ıiDD9 
iDDA 
iDDA 
ıDDA 
iDDA 
iDDA 
iDDB 
ı1DDE 
iDDD 
iDDE 
iDDF 
1DEO 
IDEI 
iDE2 
iDE3 
ıDE4 
1DES 
iDE& 
iDE7 
iDES 
1DE9 
1DE? 
iDEA 
iDEB 
iDEC 
ıDEC 
iDEC 
IDEC 
iDEC 
IDEE 
iDEC 
iDED 
iDFO 
iDFO 
ıIDFS 
iDFS 
IiDF& 
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E7 
CD 


CD 
28 


DF 
2? 


u 


DA ıD 


68 Sc 
DF 00 


. 
-—.—.n.. WE ar 


NXTNEG 


; 
NXTEND 


A NEE ae BEE nu 


.BYT £OF 


.BYT $C0 
‚BYT $02 
‚:BYT #238 


CALL #1DDA 


RET C 
LD HL,(MEM) 
LD DE,$F 
ADD HL,DE 
LD E,(HL) 
INC HL 

LD D, (HL) 
INC HL 

LD H, (HL) 
EX DE,HL 

JP $1E73 


RST ERRAUS 
.BYT #00 


RST CALRUF 
«BYT $E1l 
.BYT $EO 
‚BYT $E2 
.BYT $36 
.BYT #00 
‚BYT $02 
.BYT #01 
.BYT $05 
‚BYT #37 
.BYT #00 
‚BYT $04 
„BYT $38 
AND A 
RET 


‚BYT $38 
ScF 
RET 


BEFEHL READ 
CHADD WIRD ALS ZEIGER ENTLANG DER EINZELNEN DATA- 
STATEMENTS BENUTZT. DATADD ZEIGT AUF DAS AKTUELLE 


ELEMENT DER DATENLISTE 


RST GETNAT 
CALL #iCIF 


CALL $2530 
JR Z,$1E1E 
RST GETAKT 


LD {XPTR),HL 


—— (BE Er WE an 


=. ME a A an a 


; 


BEE EEE a 


W+S ADDIERE 'STEP’ ZUR LAUF- 
VARTABLEN 

W+S SPEICHERE IN MEMO 
LÖSCHEN 

ENDE 


LAUFWERT GEGEN OBERGRENZE 
PRÜFEN 

RETURN, WENN ENDE ERREICHT 
LOWBYTEADRESSE DER ZEILENNUM- 
MER DES SCHLEIFENBEGINNS 
BERECHNEN 

DIESE ZEILENNUMMER 


NACH DE LADEN 

BEFEHLSZAHL IN DER ZEILE LADEN 
TAUSCH, DAMIT WIE BEIM 60 TO 
VERFAHREN WERDEN KANN 


FEHLERMELDUNG 
"NEXT WITHOUT FOR’ 


ÜBERPRÜFUNG, OB DIE OBER-/UNTERGRENZE EINER FOR- 
NEXT-SCHLEIFE ERREICHT 


(JE NACH VORZEICHEN VON STEP) 


CALCULATORAUFRUF 

0, HOLE MEMO 

0,4, HOLE MEMI 

0,4,5 HOLE MEM2 

0,4, S{NULL? 
CALACULATORSPRUNG UM 2,FALLS 
DIES ZUTRIFFT (NXTNEG) 

H,O, AUSTAUSCH 

W-0 ODER O-W, SUBTRAKTION 
ERGEBNIS > NULL? 
CALCULATORSPRUNG (NXTEND), 
WENN DIES ZUTRIFFT 

ENDE 

CARRY LÖSCHEN: FOR-NEXT NOCHT 
NICHT ZU ENDE 


ENDE 
FOR-NEXT-SCHLEIFE FERTIG 


(NSOTIG FÜR MEHRERE READBEFEHLE) 


CHADD+i1, NÄCHSTES ZEICHEN 
NACHSEHEN, DB DIE VARIAABLE 
SCHON BENUTZT WORDEN IST 
BEI SYNTAXPRÜFUNG REST 
ÜBERSPRINGEN 

CHADD NOCHMAL HOLEN, UM 
DIESES ZWISCHENZUSPEICHERN 


iDF9 
IDFC 
IDFD 
ıDFF 
1EOöl 
1E03 
1EO& 
jiEOB 
1EO8 
1E09 
iEOA 
1EOA 
1EOD 
1E10 
lEIO 
E11 
1Ei4 
LEI 
1El? 
lEIB 
IELE 
LELF 
1E21 
1E23 
liE2Z& 
ı1E2& 
1E27 
1E27 
1627 
1E27 
1E27 
1E27 
iE2ZA 
lE2C 
LEZF 
1ES1 
1E34 
1E35 
1E37 
iES7 
1E29 
1E39 
1E39 
1E39 
ı1E3A 
lESEC 
1ESF 
1E42 
1E42 
1E42 
1E42 
1E42 
1E42 
1E45 
1E4& 
1E47 
1E4A 
1E4B 


206 


79 


6E 


37 


iD 


00 
IC 


ie 


Sc 


; 


EEE EEE 


LD HL,(DATADD) 
LD A,(HL) 

gp ?,°’ 

JR Z,$1E0A 

LD E,$E4 

CALL $1D86 

IR NC,$1EOA 


RST ERRAUS 
‚BYT #0D 


CALL #77 
CALL #16C56 


RST BETAKT 
LD (DATADD) ‚HL 
LD HL,{XPTR) 


LD ({IY+#26),0 
CALL $78 

RST GETAKT 
CP’, 

JR Z,&#1DBEL 
CALL #1BEE 


RET 


ae 


TEE u NEE a EEE NE TE NE a 


ZEIGER DER DATENLISTE LADEN 
FALLS KOMMA ALS TRENNZEICHEN, 


GEHT DIE AUFZÄHLUNG WEITER 
SONST NÄCHSTES DATA-STATEMENT 
IM PROGRAMM SUCHEN 

"DATA’ WURDE GEFUNDEN 


SONST FEHLERMELDUNG: 
"OUT OF DATA’ 


CHADD +1 

BEN KERT HOLEN UND DER 
VARIABLEN ZUWEISEN 

AKTUELLEN WERT CHADD IN HL, 
ZUM ZWISCHENSPEICHERN, LADEN 
ZEIGER AUF READ-BEFEHL WIEDER 
LADEN UND 

XFTRHI LOSCHEN 

HL NUR IN EHADD SPEICHERN 
AKTUELLES ZEICHEN JETZT 

EIN KOMMA? 

JA: WEITERE DATEN EINLESEN 
SONST ENDEPRÜFUNG (=ENDE BEI 
SYNTAXPRÜFUNG) 

RETURN IM PROSRAMMLAUF 


BEFEHL DATA 
BEIM FROSRAMMLAUF WERDEN DIE DATA-STATEMENTS 
ÜBERSPRUNGEN 


RST GETNAT CHADD+1 UND WEITER IN DER 


CALL $2530 : PROGRAMMLAUF? 
JR NZ,$1E37 JA 
CALL $24FB ; NÄCHSTEN AUSDRUCK AUSWERTEN 
gm”,  TRENNZEICHEN VORHANDEN? 
CALL NZ,$1BEE ; NEIN: AUF ENDE PRÜFEN 
JR sSIE2C « DATASTATEMENTSCHLEIFE 
LD A,$E4 ; DATABEFEHL ÜBERBEHEN 
ROUTINE ZUM ÜBERSPRINGEN VON PROSRAMMTEILEN 
LD B,A ; RES BC EINE HOHE ZAHL ZUWEISEN 
EPDR : UND DAS TOKEN SUCHEN 
LD DE,$200 : AB DEM 2. ZEICHEN DANACH 
IP $198B ; BEN NÄCHSTEN BEFEHL SUCHEN 


BEFEHL RESTORE 
EIN OPERAND WIRD ALS ZEILENNUMMER INTERPRETIERT, 
WENN KEINER VORHANDEN, DEFAULTWERT NULL 


EALL $1E99 ZEILENNUMMER NACH BC BRINGEN 


LD H,B ; UND INS HL RESISTER 

LDL,E ; KOPIEREN 

GALL #196E ; DIE ADRESSE DER ZEILE SUCHEN 
DEC HL ; DAVON i SUBTRAHIEREN UND 

LD (DATADD),HL ; IN DATADD SPEICHERN 
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LE4E 69 RET 


1EAF ; 

1E4F ; BEFEHL RANDOMIZE 

iEäöF s FALLS DER OPERAND NULL IST, WIRD STATTDESSEN FRAMES 
1EAF ; ALS ERSATZ GENOMMEN 

1E4F ; 

tEAF CD 99-1E EALL. #1E99 : WERT NACH EC HOLEN 

ıES2 78 LD A,B ; UND AUF 

tES3 Bi OR C &-NULE TESTEN 

ı1ES4 20 04 JR NZ,F1ESA ;s WAR NICHT NULL 

iES6 ED 48 78 S£ LD BE,{FRAMES) ; SONST FRAMES LADEN 

lESA ED 43 76 SC LD {SEED),BC ; UND IN SEED SPEICHERN 

IiESE 59 RET 

LEOF : 

1ESF ;s BEFEHL CONTINUE 

1ESF ; DIE ENTSPRECHENDEN ZEILEN- UND BEFEHLSNUMMERN WERDEN 
IESF ı GELADEN, UM DANN EIN '60 TO’ AUSZUFÜHREN 

1ESF ; 

ÄEöF ZA BE 56 LD HL, {OLDPFE) ; ZEILENNUMMER 

1iESZ FD 56 36 LD D,(IY+$36) s BEFEHLSZAHL IN DIESER ZEILE 
1665 i18 86 JR $1E73 

1Eb7 - 

iEö7 : BEFEHL 560: 19 

1lES7 ; DIE ZEILENNUMMER SOLLTE IM BEREICH VON 0 - 9999 SEIN, 
1ES? ES WIRD JEDOCH NUR AUF >51439 GEPRÜFT 

1E67 s 

\Eß? ED 992 IE CALL $1E99 ; ZEILENNUMMER NACH BC 

lE6&A #0 ED H;B ; NACH HL KOFIEREN 

iEöB 59 ER Ls6 

1ESC ib 00 LD D,6 

lEAE 76 LD A,H 

iEöF FE FO CP #£Fö TEST 7 61439 ? 

ıiE71L 30 2£ JR NC,$1E9F ı JA: ERROR 

1E73 - 

1E73 2 BB LD {NEWFPC),HL ; SONST ZEILENNUMMER SPEICHERN 
lE7’& FD 72 OA LD (IY+$A),D ; BEFEHLSZAHL SPEICHERN 

1879 5 RET 

1E7A - 

iE7A BEFEHL OUT 

lE7A ; DIE ZWEI PARAMETER WERDEN VOM CALCULATOERSTACK 

1E7A ; GEHOLT UND AUSBEGBEN 

1E7A - 

1E7A CD 85 IE CALL $1E85 ; BEIDE FARAMETER HOLEN 

iE7TDB ED 79 DUT {C),A ; REG A AUF PORT (C) AUSGEBEN 
iE/r 69 RET 

1EED ; 

1E80 BEFEHL POKE 

1ESO ; DIE BEIDEN FARAMETER WERDEN, WIE BEI DUT, VOM 

1ESÜ ; CALCULATORSTACK GENDMMEN 

1EBO - 

1EßSO CD 85 IE CALL $1E85 ; FARAMETER HOLEN LIND 

iEB3. 92 LD (BC),A ; DEN POKE-BEFEHL AUSFÜHREN 
1EBA 69 RET 

1E85 ' 

1E85 ; DIE ZWEI OBERSTEN FARAMETER VOM CALCULATORSTACK 
1E85 ; ENTNEHMEN: DER ERSTE MUSS IM BEREICH VON O0 - 255 SEIN, 
1E85 : (ES WIRD DAS ZWEIERKOMPLEMENT GEBILDET, FALLS NEGATIV) 
1EB5 ; DER ZWEITE IM BEREICH VON VON 0 - 555352 (INTEGER) 
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1EBS 
1EBS 
1EBB 
1EBA 
1EBC 
1EBE 
l1EBF 
1E92 
1E9S3 
1E94 
1E94 
1E94 
1E94 
1E94 
1E94 
1E97 
1899 
LEST 
1E9E 
LEFF 
1EIF 
LENIF 
LEAD 
1EAl 
lEAI 
1EAi 
lEAI 
1EAI 
1EAi 
1EA4 
1EA7 
LEAA 
lEAC 
lEAC 
lEAC 
lEAC 
l1EAC 
IEAC 
lEAF 
1EBO 
lEBI 
lEBS 
lEB7 
lEBB 
lEBC 
lEBF 
lECO 
iEC}3 
lEC& 
1EC9Y 
LECEC 
iECD 
lECE 
l1EDO 
1ED2 
1EDS 
1ED& 
1EDB 


CD 
38 
28 
ED 
FS 
CD 
Fi 
C9 


D5 
15 
02 


44 


1 


D5 
03 
AZ 
Ol 


67 
00 
45 
03 


2D 


lE 


2D 


iE 
00 
IE 


Sc 


sc 


EEE a BE Ta 


.. u. ME sun 


u TE u 


CALL $2DD5 ; ERSTEN PARAMETER HOLEN 

JR C,$1E9F ı ERROR, WENN ZU GROSS 

JR Z,$1E8E ; SPRUNG, WENN POSITIV 

NEG ; ZWEIERKOMPLEMENTBILDUNG 

PUSH AF ; ZWISCHENSPEICHERN 

CALL $1E99 ; DEN ZWEITEN PARAMETER NACH BC 
POP AF ; BRINGEN UND DEN ERSTEN WIEDER 
RET ; LADEN 


SUBROUTINE, UM INTEGERZAHLEN VOM CALCULATORSTACK ZU 
HOLEN. INTEGI FÜR ZAHLEN VON 0 - 255 (1 BYTE), 
INTEG2 FÜR ZAHLEN VON 0 - 655535 (2 BYTE) 


NTEBI CALL $2D05 ; LETZTEN WERT VOM CALC.-STACK 
IR $1E9C 
CALL $2DA2 ; LETZTEN WERT VOM CALC.-STACK 
JR E,$LE9F ; ZAHL ZU GROSS 
RET Z ; RETURN NUR POSITIVE ZAHLEN IM 

; ENTSPRECHENDEN BEREICH 
RST ERRAUS ; FEHLERMELDUNG: 
„EYT $0A ; "INTEGER OUT OF RANGE’ 
BEFEHL RUN 


FARAMETER VON RUN WIRD üBER 60 TD ZUGEWIESEN, DANACH 


WIRD EIN "RESTORE OÖ’ UND "CLEAR" AUSGEFÜHRT 
CALL #1E67 ı üBER 60 TD DEN NEWPFEC SETZEN 
LD EC,Ö ; RESTORE 0 
CALL #1E45 ı AUSFÜHREN 
JR #1EAF ; UND ZUM BEFEHL CLEAR 


BEFEHL CLEAR 
HIERMIT WERDEN DIE VARIABLEN UND DER BILDSCHIRM 
GELGSCHT. RAMTOF UND DER STACK WERDEN NEU ANGELEST 


CALL $1E99 
LD A,B 

OR C 

IR NZ,$1EB7 
LD BC, {RAMTOP) 
PUSH BL 

LD DE, (VARS) 
LD HL,(ELINE) 
DEC HL 

CALL RAUSI 
CALL $D&B 

LD HL,{STKEND) 
iD DE,$I2 

ADD HL,DE 

POP DE 

SEC HL,DE 

JR NC,$1EDA 
LD HL,(PRAMT) 
AND A 

SEC HL,DE 

IR NC,$LEDE 


— | WE u TEE u TEE -—.—.— a 


WERT NACH BC HOLEN 
DIESEN AUF 
NULL TESTEN 


WENN 0, DANN RAMTOF NEHMEN 
ZWISCHENSFEICHERN 
DEN SFEICHERBEREICH 


ALLER VERWENDETEN VARIABLEN 
FREISEBEN 

BILDSCHIRM LESCHEN 
AKTUELLER WERT VON STACKEND 
50 FREIE SPEICHERPLÄTZE 

ZUM TEST ADDIEREN 

STKEND DDER 0000 HOLEN 
TEST, OB GRENZE ZU TIEF 

JA, ERROR 

TEST DBERGRENZE MIT PRAMT 
CARRY LÄSCHEN 

UND SUBTRAHIEREN 

ALLES IN ORDNUNG 
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LEDA 
1EDA 
L1EDEB 
1EDE 
lEDG 
1EDD 
IEEO 
1bEI 
IEE2 
iEE4 
1EES 
lEE& 
lEE7 
lEEB 
lEEC 
1EED 
1EED 
lEED 
1EED 
lEED 
1EED 
lEEE 
1EFi 
lEF2 
lEF3 
1EF4 
iEF4 
iEFB 
1EF? 
lEFA 
LEFE 
LEFF 
ıF02 
1F05 
1FOS 
1F05 
iFOS 
1FOS 
1F08 
1F09 
LFOB 
LFOL 
LFOF 
iF10 
iF12 
iF14 
iF1S 
ıFTS 
1F15 
ir13 
iF17 
ıiFiA 
iFiA 
iFiA 
ıFiA 
iFiA 
iFiD 
iF20 
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R2 


65 


oA 


30 


03 
72 


03 


OD 


45 


; 3D 


iE 
00 


sc 


00 


00 


Sc 


Sc 


-—— EEE EEE en 


RST ERRAUS 
‚BYT $15 


EX DE,HL 

LD tRAMTDP) ,HL 
POP DE 

POP BE 

LD (HL) ,$3E 
DEC HL 

LD SP,HL 

PUSH BC 

LD (ERRSP),SP 
EX DE,HL 

IP (HL) 


BEFEHL 60 SUB 
DER AKTUELLE WERT VON PPC UND SURBPFC +1 WERDEN IM 
"60 SUB’'-STACK GESPEICHERT 


POP DE 

LD H,(IY+$D) 
INC H 

EX (SP} ,HL 
INC SP 


LD BC, (PPC) 
PUSH BE 

PUSH HL 

LD (ERRSP) SP 
PUSH DE 

CALL $1E67 

LD BL,$14 


.—: BE EEE EEE a 


FEHLERMELDUNG: 
"RAMTOF NO G00D’ 


TAUSCH, UM RAMTOP 

NEU ZU SETZEN 
RETURNADRESSE BRKTST 
ERRORRETURNADRESSE 

"60 SUB’ ENDEMARKIERUNG 
AUF DEN STACK UND 
STACKFOINTER NEU SETZEN 
ERRORRETURNADRESSE UND DEN 
STACKFOINTER SPEICHERN 
RETURNADRESSE BRKTST IN HL 
BRINGEN UND HIERÜBER RETURN 


RETURNADRESSE BRETST 

SUBPPC LADEN UND 

UM 1 ERHÖHEN 

ERRORADRESSE MIT BEFEHLSZAHL 
TAUSCHEN UND DEN 'L’-PLATZ 
WIEDER FEIGEBEN 

PPC IM 

STACK SPEICHERN 

ERRDRADRESSE WIEDER AUF STACK 
ERRORSTACKPOINTER NEU SETZEN 
RETURNADRESSE BRETST AUF STACK 
NEWPPC, NSPPC SETZEN 

VOR AUSFÜHRUNG VON GO SUB NOCH 
EIN SPEICHERTEST DURCHFÜHREN 


; 
; TESTROUTINE FüR BENÖTIGTEN SPEICHERPLATZ (IN BC) 


.: u. WHO Tan 


LD HL,(STKEND) 
ADD HL,BC 

JR C,$1F15 

EX DE,HL 

LD HL,$50 

ADD HL,DE 

JR C,$1F15 
SEC HL,SP 
RETC 


LD L,3 
JPp $55 


LD BC,O 
CALL $1F05 
LD B,H 


3 
; 
’ 
3 
; 
; 


” 
y 
“ 
’ 


ROUTINE ZUM BERECHNEN DES FREIEN SPEICHERPLATZES 
DER FREIE PLATZ ERGIBT SICH DURCH: 


3 
} 
“ 
; 


ZU STACKEND DEN 


; BENSTIGETEN PLATZ ADDIEREN 


ERGEBNIS > 85555 ($FFFF) 


; MIT ZUSÄTZLICHEN BO 
; PLÄTZEN TESTEN 


WIEDER >555535 
MIT STACKPDINTER VERGLEICHEN 


; GENÜGEND PLATZ VORHANDEN 


FEHLERMELDUNG "OUT OF MEMORY’ 


DA LAUFZEITFEHLER, ERFOLGT DIE 
MELDUNG NICHT üBER RSTB 


(FRE) 
PRINT65535-USR79&2 


SPEICHERTEST OHNE ZUSÄTZLICHE 
PLÄTZE DURCHFÜHREN 
ERGENIS NACH 


ıF21 
ıF22 
1F23 
1F23 
ıF23 
1F23 
1F23 
{F23 
ıF24 
ıF25 
ıF26 
1F27 
LF29 
ıF2B 
ıF2C 
{F2D 
ıF2D 
LF2E 
ıF32 
1F33 
IFI& 
ıF36 
ıF37 
ıF38 
1F39 
IFSA 
ıFS3A 
IFIA 
LSA 
IFA 
IFSA 
IFIA 
IFSA 
ıF3D 
IFSE 
LFIF 
IF40 
ıF41 
{FA 
ıF44 
{F4S5 
ıF4b 
ıF48 
LF49 
IF4D 
IFAD 
IFAF 
IFAF 
ıF53 
ıF54 
ıF54 
ıF54 
ıF54 
1F56 
ıF58 
1F59 
ıFSA 
tFS5A 


4D 
C? 


99 


dc 


ol 


CR 


EE 


CB 


7F 
FE 


FE 


: 3D SC 


lE 


iE 


Öl &E 


01 AE 


0 A En TEE Kam 


BJ 


iD ei 
RET 


; BC BRINGEN 


BEFEHL RETURN 
ZEILENNUMMER UND BEFEHLSZAHL IN DER ZEILE WERDEN VOM 
"60 SUB’-STACK GENOMMEN 


POP BC » RETURNADRESSE BRKTST 

POP HL ; ERRORRETURNADRESSE 

POP DE ; LETZTER EINTRAG IM ‘60 SUB’- 

[D A,D ; STACK MIT 

CP $3E » ENDEMERKER VERGLEICHEN 

JR Z,$1F36 ; WENN JA: ERROR 

DEC SP ; STACKPOINTER NEU SETZEN 

EX (SP} ,HL ; BEFEHLSZAHL MIT ERRORRETURN- 
« ADRESSE AUSTAUSCHEN 

EX DE,HL ; BEFEHLSZAHL NACH D 

LD (ERRSP),SP  ; ERRORSTACKPOINTER NORMAL 

PUSH BE ; RETURNADRESSE BRKTST ZURÜCK 

JP $1E73 ; UND NEWPPC + NSPPC NEU SETZEN 

PUSH DE ; ENDEMERKER UND 

PUSH HL ‚ ERRORADRESSE AUF STACK ZURÜCK 

RST ERRAUS ‚ FEHLERMELDUNG: 

„BYT $06 ; "RETURN WITHOUT BOSUB’ 


BEFEHL FAUSE 

ES WERDEN HIERBEI DIE INTERRUPTS GEZÄHLT, DIE 50 MAL 
FRD SEKUNDE {rüR DIE TASTATURABFRAGBE) AUFTRETEN. WENN 
EINE TASTE GEDRUCKT WIRD, WIRD DIE PAUSE EBENFALLS 
BEENDET 


BIT 5,tIY+1) 


SETZEN UND WARTEN, BIS EINE 
TASTE GEDRUCKT WIRD 


CALL $1E99 ; ZAHLWERT NACH BC LADEN 
HALT ; AUF NÄCHSTEN INTERRUPT WARTEN 
DEC BC ; ZAHLER -1 
LD A,B ; FERTIS GEZÄHLT ? 
OR C 
IR Z,$1FAF JA 
LD A,B ; FALLS BC VOR DEC BC SCHON 0 
AND C ; WAR, IST BC JETZT £FFFF 
INC A ; DIES WIRD GETESTET 
IR NZ,$1F49 ; BC WAR NICHT NULL 
INC BC ; SONST BC WIEDER AUF NULL 
; 


RES 5, 41Y+1) 
RET 


NOCH NICHT DER FALL 


FAUSE FERTIG, KEINE TASTE 
GEDRUCKT ANMERKEN 


SUBROUTINE, UM AUF GEDRUCKTE BREAK-TASTE ZU PRÜFEN 


LD A,#7F : PORTADRESSE BILDEN 

IN A,(#FE) ; TASTENMATRIX LADEN 

RRA ; BIT D INS CARRY 

RETC ı RETURN, WENN NICHT GEDRUCKT 
LD A,$FE ; SONST PORTADRESSE FüR SHIFT 
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IFStC 
iFSE 
ıFSF 
iFs0 
IF&0 
IF&0 
ıIF&O 
IF&0 
IFö0 
IF63 
IF&5 
iF67 
1F&A 
IF6A 
IF&E 
iF7i 
ıF71 
1F73 
ıF74 
1F76 
1F78 
IFTC 
iF7D 
IFTF 
IFBi 
iF82 
ıiF84 
iFB6 
iF86 
IFB& 
1F85 
iF89 
iFBC 
IFED 
iFBE 
1F90 
1F92 
1F93 
ı1F94 
1F95 
1F98 
ıF9B 
ıF9C 
iF9D 
1F9F 
IFA 
1FAS 
ıFA4 
IFA& 
IFA 
1FAB 
1FAA 
iFAB 
iFAD 
ıLFAF 
IFBO 
ıFB3 
iFB4 
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DE 


6? 


FE 


CR O1 


g8D 2C 


0& 00 
5 16 


F& 


B6 


Eu 


IN A, ($FE) 
RRA 
RET 


BEFEHL DEF FN 
ZUR LAUFZEIT WIRD 
BEI DER SYNTAXPRÜFUNG WIRD DER 


CALL $2530 
IR Z,$1F6A 
LD A,$CE 
IP $1E39 


SET &,{IY+1) 
CALL $2CBD 


JR NE,$1F89 
RST BETNXT 
cp 's' 

JR NZ,$1F7D 
RES &,(IY#+1) 
RST GBETNXT 
Ep Fig: 

JR NZ,$1FBD 
RST GETNKT 
Ep ’y' 

JR Z,$1FA6 


; 
; 
; 


DEF EN 


—— ee 


—— En TEE u EEE TEE u EEE u TEE a 


BILDEN UND TASTENMATRIX LADEN 
CARRY IST GELÖSCHT, WENN BEIDE 
TASTEN GEDRÜCKT, SONST GESETZT 


UBERSPRUNGEN {KIE DATA). 


AUSDRUCK GEPRÜFT 


SYNTAXPRÜFUNS ? 

JA 

TOKEN FüR DEF FN LADEN 
UND üBERGEHEN DES BEFEHLS 


NUMERISCHE VARIABLE ANMERKEN 
IST AKTUELLES ZEICHEN EIN 
BUCHSTABE ? 

NEIN 

CHABD +1, NÄCHSTES 
DOLLARZEICHEN ? 
NEIN 

JA: STRINGVARIABLE 
CHADD +i, NÄCHSTES 
KLAMMER AUF ? 
NEIN: ERROR 

CHADD +1, NÄCHSTES 
KLAMMER ZU {=KEINE 
JA 


ZEICHEN 


ZEICHEN 


ZEICHEN 
PARAMETER)? 


s 
; SCHLEIFE, UM ALLE PARAMETER NACHEINANDER ABZUARBEITEN 


CALL $2CED 
IP NC,$1CBA 
EX DE,HL 
RST BETNXT 
CP '$' 

JR NZ,$1F94 
EX DE,HL 
RST GETNXT 
EX DE,HL 

LD BC,& 
CALL $1655 
INC HL 

INC HL 

LD (HL) ,S$E 
BR +, 

JR NZ,$1FAS 
RST GETNXT 
JR $1F86 


Ep *y° 
JR NZ,$1FED 
RST GETNXT 
CP '=' 

JR NZ,$1FBD 
RST BETNXT 
LD A,(FLAGS) 
PUSH AF 
CALL $24FB 


—— | ae EEE a DE TEE a BE EEE u A 


AKT. ZEICHEN = 
NEIN: ERROR 

HL IN DE ZWISCHENSPEICHERN 
CHADD +1, NÄCHSTES ZEICHEN 
DOLLARZEICHEN ? 

NEIN 

JA, HL-NEU IN DE RETTEN 
CHADD+1, .. 

ZEIBER AUF LETZTEN NAMEN IN HL 
& SPEICHERPLÄTZE NACH DEM 
NAMEN FREIMACHEN 

EINEN ’ZAHLENMERKER’ 

IN DIE ERSTE FREIE POSITION 
NACH DEM NAMEN SCHREIBEN 

WENN AKT. ZEICHEN KEIN KOMMA 
IST, AUS SCHLEIFE SPRINGEN 
SONST SOLLTEN WEITERE PARA- 
METER VORHANDEN SEIN 


BUCHSTABE ? 


KLAMMER ZU MUSS EXISTIEREN 
NICHT: ERROR 

CHADD +1, NÄCHSTES ZEICHEN 
MISS EIN '=' SEIN 

NEIN: ERROR 

CHADD+1 

ART DER FUNKTION 
ZWISCHENSPEICHERN 

DEFINITION WIE EINEN AUSDRUCK 


ıiFB7 ; BEARBEITEN 

irB7 Fl POP AF ; ART WIEDER HOLEN UND MIT 

IFBB FD AE Öl XOR {IY+1) ; ERGEBNIS DES AUSDRUCKS 

IFBB Ed 40 AND $40 ; VERGLEICHEN 

IFBD C2 8A IC JP NZ,$*1C8A ; UNGLEICH: ERROR 

IFCO CD EE 1B CALL $1BEE ; RETURN üBER ENDEPRÜFUNG 

IFC3 ; 

IFC3 ; STACKKORREKTURROUTINE FüR VERSCHIEDENE GELEGENHEITEN 
IFC3 ; BEI BER SYNTAXPRÜFUNG 

1FC3 ; 

IFC3S CD 30 25 CALL #2530 ; SYNTAXPRUÜFUNG ? 

iIFC& Ei FOF HL ; EINE RETURNADRESSE VON STACK 
IFC7 C8 RET Z ; RETURN BEI SYNTAXPRUFUNG 

IFCB E? JP {HL} ; LAUFZEIT KEINE KORREKTUR 

iFC9 ; DURCH INDIREKTEN SPRUNG 

IFC9 ; 

1FC9 ; BEFEHLE LFRINT UND PRINT 

IFC9 ; DER ERFORDERLICHE KANAL WIRD GEOFFNET 

1FC9 ; 

IFC9 3E 03 LD A,3 ; KANAL P öFFNEN 

iFCB 18 02 JR #1FCF 

IFCD SE 02 LD A,2 ; KANAL 5 ÖFFNEN 

AFECF CD 30 25 CALL #2530 ; SYNTAXFRÜFUNG ? 

IFD2 C4 O1 16 CALL NZ,#16&01 ı NEIN: ERGFFNEN 

iIFDS CD 4D OD CALL $D4D ; TEMPORÄRE FARBVARIAEBLE SETZEN 
iFDB CD DFÄF CALL $1FDF ; PRINT-STEUERROUTINE 

IFDE CD EE IB CALL #1iBEE ; ENDEPRÜFUNG 

IFDE C9 RET 

IFDF ; 

iFDF DF RST GETAKT ; ERSTES ZEICHEN HOLEN 

IFEO CD 45 20 CALL #2045 ; SPRUNG, WENN FRINTAUSDRUCK ZU 
iFE3 28 OD JR Z,$1FF2 ; ENDE IST 

IFES CD 4E 20 CALL $ZO4E ; IRGENDEIN POSITIONIERZEICHEN? 
iFEB 28 FB JR Z,$1FES ; JA 

IFEA CD FCIF CALL $IFFC ; EINZELNEN FRINTAUSDRUCK 

iFED ; BEARBEITEN 

IFED CD 4E 20 CALL #204E ; POSITIONIER- ODER ENDEZEICHEN? 
iFFO 28 F3 JR Z,$1FES ; JA: WEITER AUSDRUCKEN 

iFF2 FE 29 Ep ')° ; WENN KLAMMER ZU, RETURN 

ıIFF4 CB RET Z 

IFFS - 

iFFS ; SUBROUTINE, UM EIN CARRIAGE RETURN AUSZUDRUCKEN, ABER 
IFFS ; NUR ZUR LAUFZEIT 

IFFS - 

IFFS CD CS IF CALL $1iFC3 ; BEI SYNTAXPRÜFUNG STACKKOR- 
IFFB ; REKTUR UND KEIN RETURN HIERHIN, 
IFF8 3E 0D LD A,$D ; SONST EIN CARRIAGE RETURN 
IFFA D7 RST PRTDUT ; AUSGEBEN 

iIFFB C9 RET 

IFFC ‚END 

IFFG ‚LIB SPEC2000-S 

IFFE ; SINCLAIR ZX SPECTRUM TEIL 2000 

IFFC ; 

IFFE ı SUBROUTINE ZUM AUSGEBEN VON AUSDRÜCKEN BEI FRINT ETC, 
IFFC - 

IFFC DF RST GETAKT ı AKTUELLES ZEICHEN LADEN 

IFFD FE AC EP $AC ; TOKEN FÜR ’AT'? 

IFFF 20 OD JR NZ,$200E ; NEIN 
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Fr2 


70 


F7 


ic 


IF 
LE 


76 


A un Em 


3 


DT EEE Tuer 7 


CALL #1C679 


CALL $1FC3 
CALL $2307 
LD A,$1s 
JR $201E 


CP $AD 

JR NZ,+2024 
RST GETNKT 

CALL $1CB2 


CALL $1FC3 
CALL $1E99 
LD A,$17 
RST PRTOUT 
LD A,C 

RST FRTOUT 
LD A,B 

RST PRTOUT 
RET 


CALL FARBUN 
RET NC 
CALL #2070 


RET NC 


CALL $24FB 
CALL $1FC3 


BIT 4, (1Y+1) 
CALL Z,$2BFi 


IP NZ,t2DE3 


LD A,B 

OR C 

DEC BC 

RET ı 

LD A,(DE) 
INC DE 

RST PRTOUT 
JR $203C 


.-— 0. Ta Eee 


..:.- 0 NE NEE ae TE Nee 


” 
3 
* 
; 
” 
' 
[3 
; 
; 
“ 
5 
[3 
; 
} 
} 
” 
3 
} 
” 
} 
* 
; 
s 
’ 
3 
” 
} 
” 
; 
. 
’ 


“ 
L 
” 
b 


ZWEI PARAMETER BERECHNEN UND 
AUF DEM CALC.-STACK ABLEGEN 
RETURN, WENN SYNTAXPRÜFUNG 
PARAMETER NACH BC BRINGEN 
STEUERZEICHEN FÜR ’AT’ LADEN 


TOKEN FüR 
NEIN 
CHADD +1, NÄCHSTES ZEICHEN 
EINEN FARAMETER BERECHNEN UND 
AUF DEM CALC.-STACK ABLEGEN 
RETURN BEI SYNTAXFRÜFUNG 
FARAMETER NACH BC BRINGEN 
STEUERZEICHEN FüR 'TAB’ LADEN 
AT ODER TAB AUSGEBEN 

ERSTEN UND 


"TAB'? 


ZWEITEN PARAMETER AUSGEBEN 


FARBKWERTAUSDRÜCKE? 

JA 

UNTERSUCHEN, OB STREAM 
GEÄNDERT WERDEN MUSS 
JA 


DIE ZU DRUCKENDEN ZEICHEN MüSSEN ENTWEDER EIN STRING 
ODER EIN NUMERISCHER AUSDRUCK SEIN 


DEN AUSDRUCK UNTERSUCHEN 
RETURN BEI SYNTAXPRÜFUNG 
FLAGBS: AUSDRUCKART FRÜFEN 
WENN STRING, DIE NOTWENDIGEN 
FARAMETER HOLEN 


; FALLS NUMERISCHER AUSDRUCK 


AUSGABESCHLEIFE FÜR EINEN STRING 


STRINGENDE 

ERREICHT? 

(ZÄHLER DER STRINGLÄNGE -1) 
JA 

ZEICHEN LADEN 

POINTER +1 

UND ZEICHEN AUSDRUCKEN 

ZUM SCHLEIFENANFANG 


SUBRQUTINE ZUM UNTERSUCHEN, DB EINE AUSGABE ZU ENDE 
IST. TRIFFT DIES ZU, SO IST DAS ZERDFLAAG GESETZT 


KLAMMER ZU? 


CARRIAGE RETURN? 


DOPPELPUNKT? 


204E 
204E 
Z04E 
204E 
204F 
2051 
2053 
2055 
2057 
205A 
2056 
205E 
205F 
20651 
2061 
2063 
2064 
20654 
2067 
20683 
20&B 
20&D 
206E 
206F 
2070 
2070 
2070 
2070 
2070 
2072 
2073 
2074 
2075 
2078 
2079 
207C 
207F 
2081 
2084 
2087 
2088 
2089 
2089 
2089 
2089 
2089 
2089 
208BC 
20BE 
2090 
2093 
2096 
209A 
209D 
20A0 
20A0 
20AA4 
2047 


23 


25 


20 


25 


01 


sc 


_— |... 


u WE Er BE 


SUBROUTINE ZUM POSITIONIEREN BEIM AUSDRUCKEN 


RST GETAKT 
Ep tet 
JR 7,$2067 
Ep ’,° 


JR NZ,$2061 
CALL +2530 
JR 2,$2067 
LD A,6 

RST PRTOUT 
JR $2067 


1 
RET NZ 


CALL $IFF5 
RST BETNXT 
CALL $2045 
IR NZ,$206E 
POP EC 

CP A 

RET 


-—.— || WE ee TE a N ae ER 


—— | ME a a 


AKTUELLES ZEICHEN HOLEN 
IST ES EIN SEMIKDLON? 

JA 

EIN KOMMA? 

NEIN 

FALLS SYNTAXPRÜFUNG, 
NICHTS AUSDRUCKEN 

SONST KOMMA-STEUERZEICHEN 
LADEN UND AUSGEBEN 


IST ES EIN HOCHKOMMA? 
NEIN: RETURN 


CARRIAGBE RETURN AUSGEBEN 

CHADD +1, NÄCHSTES ZEICHEN 
PRINTENDE ERREICHT? 

NEIN 

JA: EINE RETURNADRESSE WEG 
ZERDOFLAG BEI POSITINIERZEICHEN 
IMMER GESETZT 


SUBROUTINE ZUM STREAM-ÄNDERN, FALLS DER BENUTZER 


ES WÜNSCHT 


EP '#' 

SCF 

RET NZ 

RST GETNXT 
CALL #1C82 
AND A 

CALL $1FC3 
CALL #$1E94 
EF $10 

JP NC,#180E 
CALL 16501 
AND A 

RET 


BEFEHL INPUT 


———_ u NEE u EEE u EEE u 


FALLS NICHT ’#', 
RETURN IMMER MIT CARRY GESETZT 


CHADD +1, NÄCHSTES ZEICHEN 
PARAMETER AUF CALC.-STACK 
CARRY LöSCHEN 

RETURN BEI SYNTAXPRÜFUNG 
PARAMETER IN A HOLEN 
STREAM > 15 ? 

JA: ERROR 

KANAL örFFNEN 

CARRY LÖSCHEN 


EVENTUELLE AUSGABEN BEIM INPUT WERDEN IM UNTEREN 


BILDSCHIRMTEIL GEDRUCKT 


CALL $2530 
JR 2,$209& 
LD A, 

CALL $1601 
CALL $D6&E 
LD tIY+2),1 
CALL $20C1 
CALL $1BEE 


LD BC, (SPOSN) 
LD A,(DFS2) 
CP B 


.—— EEE Er EEE a Eu 


SYNTAXPRÜFUNG ? 


UNTEREN SCHIRMTEIL LÖSCHEN 

UND AUF EINE ZEILE BEGRENZEN 
SUBROUTINE ZUR INPUTAUSFÜHRUNG 
BEI SYNTAXFRÜFUNG ZUM NÄCHSTEN 
BEFEHL 

AKTUELLE PRINTPOSITIDN LADEN 
IST DIESE üBER DEM 

UNTEREN BILDSCHIRMTEIL ? 
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20A8B 
ZUAA 
20AL 
ZUAD 
20Bl 
20B3 
20B4 
20B7 
20EB 
20BE 
20C1 
20C1 
2061 
20C1 
20C1 
2064 
2065 
20C8 
26CA 
20CR 
20CE 
20CF 
20Di 
20D4 
20D5 
20DB 
26D8 
20DA 
20DE 
20DD 
2DEO 
20ED 
20E4 
20E8 
20EB 
20ED 
20ED 
20ED 
20ED 
20FÖ 
20F53 
2ÖF& 
20F6 
20FA 
20FA 
ZÖFA 
20FA 
2ÖFD 
2100 
2103 
2106 
2108 
210A 
210D 
210F 
2114 
2114 
2118 
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: 88 


ac 
02 
OD 
üD 


20 


iF 


37 
01 


00 


Sc 


sc 


B& 


FE 
76 


BE 


. 
’ 


3 


JR C,$20AD 
LB 8483 
LD B,A 


LD (SPOSN),EC 


LD A,25 

SUB B 

LD (SERCTI,A 
RES 0,(1Y+2) 
CALL $DD9 

JP $D&E 


CALL $204E 

JR 2,2061 

Ep rt 

JR NZ,$20D8 
RST GETNKT 

CALL $1FDF 

RST BETAKT 

ER 2° 

JP NZ,$1CBA 
RST BETNXT 

JP $21B2 


CP $CA 
JR NZ,*20ED 
RST BETNXT 
CALL $iCIF 


SET 7,(1Y+$37) 


BIT 4,1141) 
JP NZ,#1CBA 
JR £20FA 


CALL $2C8D 
JP NE,#21AF 
CALL $1C1F 


RES 7,(1Y+$537) 


CALL $2530 
JP 2,$21B2 
CALL $14BF 
LD HL,FLABX 
RES 6, (HL) 
SET 5, (HL) 
LD BE,1 

BIT 7, (HL) 
JR NZ,$211C 
LD A,(FLABS) 
AND $40 

JR NZ,$211A 


’ 
’ 
” 
y 
$ 
s 


; 
[} 
; 
3 
} 
* 
} 


€ Eu A a TEE u TE a 


3 
5 
} 
; 
} 
; 
} 
; 
» 


> 
NORMALE INPUTVARIABLEN 


Li 
; 
[1 
; 
. 
’ 
. 
} 
’ 


DIE PROMPTAUSGABE WIRD 


ME u TE a 


JA 
SONST PRINTFOSITION AUF DEN 
ANFANGS DES UNT. TEILS SETZEN 


; PRINTPOSITIDN NEU SETZEN 


SCROLLING-ZÄHLER 


NEU SETZEN 
HAUFTBILDSCHIRM EINSCHALTEN 
SYSTEMVARIABLEN SETZEN 


UND RETURN ÜBER ROUTINE ZUM 
LÖSCHEN DES UNTEREN SCHIRMTEILS 


EIGENTLICHE INPUTROUTINE 


FOSITIDNIERZEICHEN VORHANDEN ? 
JA 

SPRUNG, WENN ERSTES ZEICHEN 
NICHT KLAMMER AUF IST 

CHADD +1, NÄCHSTES ZEICHEN 
NORMALE PRINTROUTINE AUFRUFEN 
LETZTES ZEICHEN MUSS 

KLAMMER ZU SEIN, 

SONST ERROR 

CHADD +1, NÄCHSTES ZEICHEN 
FRÜFEN, DB WEITERE INPUTTERME 


TOKEN FüR 'LINE’ ? 

NEIN 

CHADD +1, NÄCHSTES ZEICHEN 
ZIELADRESSE BER VARIABLEN 
BESTIMMEN 

"INPUT LINE’ ANMERKEN 
STRINGVARIABLE ? 

NEIN: ERROR 

ZUR PROMPT-AUSGABE 


SPRUNS, WENN AKTUELLES ZEICHEN 
KEIN BUCHSTABE IST 

ZIELADRESSE DER VARIABLEN 
BESTIMMEN 

"NOT INPUT LINE’ ANMERKEN 
IM WORKSPALCE AUFGEBAUT 


SPRUNG, WENN 
SYNTAXPRÜFUNG 
WORKSFACE AUF NULL SSETZEN 


STRINGERGEBNIS ANMERKEN 
INPUTMODUS ANMERKEEN 

FüR PROMPT NUR EINE POSITION 
"KINE" 7 

JA 

NUMERISCHE EINGABE ? 


JA 


2118 
211A 
211B 
2116 
21i1D 
2118 
Bar 
2120 
2121 
2122 
2124 
2126 
2127 
2128 
2129 
212C 
2130 
2132 
2135 
2136 
2139 
213A 
213D 
2i3E 
2142 
2144 
2148 
214B 
214B 
214E 
2152 
2155 
2159 
215C 
21SE 
215E 
2161 
2161 
2165 
2168 
216A 
21&D 
2171 
2174 
2174 
21.77 
21.79 
217B 
217D 
ZLFF 
2130 
2181 
2184 
2185 
2188 
218C 
218F 
2192 


OD 


37 TE 


30 66 


5>D SC 


O0 FF 


Ol BE 


22 00 


82 SC 


EB 6,3 

OR (HL) 
LD (HLI,A 
RST $30 


LD (HL),$D 
LD A,C 

RRCA 

RRCA 

JR NC,$2129 
LD A,'"' 

LD (DE),A 
DEC HL 

LD (HLI,A 

LD (KCUR),HL 


BIT 7,(1Y+$37) 


JR NZ,$215E 
LD HL,{CHADD) 
PUSH HL 

LD HL,(ERRSP) 
PUSH HL 

LD HL,$213A 
PUSH HL 


BIT 4, (1Y+$30) 


IR Z,$2148 
LD (ERRSP},SP 
LD HL, (WORKSP) 


CALL $1187 

LD (IY+0),&£FF 
CALL $F2C 

RES 7,(1Y+1) 
CALL $21B9 

JR $2161 


CALL $F2C 


LD (1Y+$22),0 
CALL $21D6 

JR NZ,$2174 
CALL $i11D 

LD BE, (ECHOE) 
CALL &DD9 


LD HL,FLABX 
RES 5, (HL) 
BIT 7,(HL) 
RES 7, HL) 

IR NZ,#219B 
POP HL 

POP HL 

LD (ERRSP) HL 
POP HL 

LD (XPTR) HL 
SET 7,tIY+1) 
CALL $21B9 

LD HL,(XPTR) 
LD (IY+$26) ,0 


ee EEE u 


a HE a TEE a NE u TEE 


EEE En 


€ 0 ME u NEE u TEE u NE u TEE a TE 


STRINSEINTRAG BRAUCHT 3 PLÄTZE 
BIT& VON FLAGX FÜR NUMERISCH 
SETZEN 

BENÖTIGTE SFEICHERPLÄTZE 
FREIMACHEN 

CARRIAGE RETURN ALS ABSCHLUSS 
BIT & DES C REGISTERS TESTEN 


SPRUNG, WENN 

EIN PLATZ BENSTIGT WIRD 
ANFÜHRUNGSSTRICHE IN 
DIE ERSTEN ZWEI 


PLÄTZE SCHREIBEN 
CURSORPOESITIDON SPEICHERN 
"INPUT LINE’ ? 

JA 

CHADD UND 


ERRORSTACKFUOINTER AUF DEM 
STACK ZWISCHENSPEICHERN 
RETURNADRESSE FüR ERRORS 


FLAGS2: WIRD KANAL K BENUTZT ? 
NEIN 

JA: ERRORSTACKFDINTER NEU 

HL AUF BEGINN VON "INPUT LINE’ 
SETZEN UND EVENTUELLE 
FLOATINGPOINTZAHLEN ENTFERNEN 
"KEIN ERROR’ ANMERKEN 

INPUT üBER EDITOR HOLEN UND 
SYNTAXFLAG ZUR INPUTFRÜFUNG 
SETZEN UND DEN INPUT TESTEN 


DIE INPUTZEILE HOLEN 


CURSORADRESSE ZURÜCKSETZEN 
INFUT üBER KANAL K ? 

NEIN 

EINGABEZEILE AUF DEN SCHIRM 
KOPIEREN UND POSITION ECHDE 
ZUR AKTUELLEN IM UNTEREN 
BILDSCHIRMTEIL MACHEN 


"EDITOR-MODUS 
"INPUT LINE’ ? 
{DIESES IMMER RUCKSETZEN) 

JA 

RETURNADRESSE #215A WEGWERFEN 
ERRORSTACKFOINTER AUF 

DEN ALTEN WERT SETZEN 

CHADD DRISINAL IN 

XFTR SPEICHERN 

FROGRAMMLAUF ANMERKEN 

UND DIE ZUWEISUNG AUSFÜHREN 
CHADD WIEDER AllF DEN 
DRIGEINALWERT SETZEN UND 


ANMERKEN 
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2196 - 22 3D SC LD (CHADDI „HL ; XPTR LÖSCHEN 

233 VEN JR $21B2 

219B 3 

219B 2A 63 SC LD HL,(STKBOT) ; LÄNGE DER ’LINE' 

219E ED SB d1 SC LD DE,{WORKSP) ; IM WORKSPACE 

AiRZ 37 SEF 

2145 ED S2 SBC HL,DE ; BERECHNEN UND 

21A5 44 LD B,H 

2iA& 4D LD C,L ; NACH BC KOFIEREN 

21A7 CD B2 2A CALL $2AB2 : FARAMETER AUF DEN STACK 
2iAA CD FF 2A CALL *2AFF ; ZUWEISUNG AUSFÜHREN 

21AD 18 05 JR $21B2 

21AF : 

2iAF CD FCiF CALL $1FFEC ı FRINTANKEISUNGEN AUSFÜHREN 
21B2 CD 4E 20 CALL #204E ; SIND POSITIDNIERZEICHEN VOR- 
21B5 ; HANDEN {MEHRERE INFUTS/ZEILE)? 
2lB5 LALCI 20 JP Z,#20C1 ; JA, WEITER IN INFUTSCHLEIFE 
2iB8 C9 RET ; SONST INPUT FERTIG 

21B9 ; 

21B9 ; SUBROUTINE FüR INPUTZUWEISUNG 

21B9 ; ERSTER AUFRUF MIT SYNTAXFLAG GESETZT UND ZWEITER 
21B9 ; MIT SYNTAXFLAG ZURÜCKGESETZT (=PROGRAMMLAUF) 

21B? ; 

2189 2A &1 SC LD HL, (WORKSP} 3; CHADD AUF ERSTE POSITION 
21Bt 22 SD 56 LD (CHADD) „HL ; IM WORKSPACE SETZEN 

21BF DF RST BETAKT ; AKTUELLES ZEICHEN LADEN 
2160 FE E2 CP $E2 ; TOKEN FüR 'STOP' ? 

2162 28 06 JR Z,#21D0 ı JA 

21C4 3A 71 5C LD A, {FLARK! ; SONST WERTZUWEISUNG DER 
2167 GB 3% T6 CALL $1C59 ; VARIABLEN DURCHFÜHREN 

2iCA DF RST GETAKT ; IST AKTUELLES ZEICHEN 

216B FE OD CP $D ı EIN CARRIAGE RETURN ? 

2icD CB RET Z ; JA 

21CE ; 

21iGE EF RST ERRAUS ; FEHLERMELDUNG: 

2lCF OB ‚BYT $0B ; "NONSENSE IN BASIC’ 

2100 - 

2lDO CD 30 25 CALL $2530 ; KEIN ERROR BEI 

2103 C8 RET Z ; SYNTAXPRÜFUNG 

21D4 : 

21D4 ; ERTES ZEICHEN DES INPUT WAR STOP 

21D4 : 

21D4 CF RST ERRAUS ; MELDUNG: 

21D5 10 .BYT $10 ; ‘STOP IN INPUT’ 

21D& ; 

21D& ı SUBROUTINE ZUM PRÜFEN, OB KANAL K IM INPUT BENUTZT 
21D6 ; WIRD. FALLS JA, IST DAS ZEROFLAG GESETZT 

2105 - 

2106 2A 51 SC LD HL, (CURECHL) 3; STARTADRESSE DER 

2109 23 INC HL ; KANALINFORMATION LADEN 
21DA 23 INC HL ; 4 ADDIEREN, LM 

21DB 23 INC HL 

21DC 3 INZ HL 

21DD T7E LD A,(HL) ; DEN KANAL ZU PRÜFEN 

2iDE FE 4B EP KK’ ; KANAL K ? 

ZIEL 6% RET 

Z1E} s 

21Ei ; UNTERPROGRAMME ZUR BEHANDLUNG VON FARBANWEISUNGEN 
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21Ei 
21Ei 
21E2 
21E2 
21E5 
21E& 
21E7 
21E9 
21EB 
21ED 
21EF 
21F2 
21F2 
2irF4 
21F5 
21F7 
21iF8 
2iF9 
21F9 
21FA 
21FB 
2IFC 
21FE 
Zi PF 
2202 
2203 
2203 
2204 
2207 
2208 
220B 
220C 
220D 
220E 
220F 
2210 
2211 
2211 
2211 
2211 
2211 
2211 
2211 
2211 
2213 
2215 
2217 
2217 
2219 
221B 
221D 
221D 
221F 
2220 
2222 
2224 
2224 
2225 


Ds 
CE 
28 


D& 
CE 
28 


FE 
7A 
06 
20 


07 
07 


C? 


94 


21 


ic 


; NORMALER EINSTIEG 


RST GETNXT 


FAREIN CALL FARBUN 


3 
FARBUN 


—.-: (BEE a NEE u TEE TE 


GEÄNDERT 


RET C 
RST GETAKT 
Er 5,4 
IR Z,$21E1 


; 
JR Z,$21E1l 
JP #1C8A 


EP $D9 


PUSH AF 
RST GETNXT 
POP AF 

SUB +C9 
PUSH AF 
CALL #iC8B2 
POP AF 


AND A 

CALL $iFC3 
PUSH AF 
CALL $1E94 
LD D,A 

POP AF 

RST PRTOUT 
LD A,D 

RST PRTOUT 
RET 


SUB $11 
ADC O 
JR 2,$2234 


SUB 2 
ADC 0 
JR 2,$2273 


EP 1 

LD A,D 

LD B,1 

JR NZ,$2228 


RLCA 
RLCA 


—— WE a 


-.—— u Eu Eu 


u EEE a EEE u ER 


-—— 0 en 


CHADD +1, NÄCHSTES ZEICHEN 


TEST AUF FARBANWEISUNGEN 
KEINE FARBANWEISUNG 

AKTUELLES ZEICHEN LADEN 

WENN ES EIN TRENNUNGSZEICHEN, 
KOMMA ODER SEMIKOLON, IST, 
WEITERE FARBANWEISUNGEN 
BEARBEITEN 

SONST ERROR 


WENN TOKEN NICHT IM BEREICH 
VON $D? BIS $DE (INK BIS OVER) 
IST, RETURN MIT CARRY GESETZT: 
KEINE FARBANWEISUNG 


SONST TOKEN RETTEN 

CHADD +1 

TOKENS IN STEUERZEICHEN VON 

#10 BIS #15 UMWANDELN 
STEUERZEICHEN ZWISCHENSPEICHERN 
PARAMETER AUF DEM CALC.-STACK 
ABLEGEN UND STEUERZEICHEN 
ZURUCKHOLEN 


AUSSPRUNG, WENN NUR SYNTAX- 
PRÜFUNG, SONST ZEICHEN RETTEN 
PARAMETER VOM CALC.-STACK 
NACH REGISTER D BRINGEN 
STEUERZEICHEN WIEDER HOLEN 
UND AUSGEBEN 

EBENFALLS DEN PARAMETER 
AUSGEBEN 


DIE FOLGENDEN UNTERPROGRAMME WERDEN VON DER PRINT- 
ROUTINE AUFGERUFEN. DABEI WERDEN DIE SYSTEMVARIABLEN 
ATTRT, MASKT UND PFLAG ENTSPRECHEND DEN ANWEISUNGEN 
{NUR DIE TEMPORÄREN). REG A ENTHÄLT DAS 
STEUERZEICHEN UND REG D DEN PARAMETER 


SUBTRAKTION UND ADDITION 
DIENEN ZUR BESTIMMUNG VON INK 
UND PAPER: SPRUNG 


EBENFALLS AUF DIESE ART 
BRIGHT UND FLASH BESTIMMEN 
SPRUNG BEI DIESEN 


STEUERZEICHEN = DVER ? 
PARAMETER NACH A 

MASKE FüR OVER SETZEN 
SPRUNG BEI DVER 


HIER INVERSE-BEARBEITUNG: 
BIT2=0 = INVERSEO, SONST 
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rJ 
N 
nJ 


DIDI MMDNDMMNMDHMPDNDMMNMMMMMHMM 

MNIMMNIMMINIIRYIMNM MD HMITINI HM DM DM MN HIN 
ed nd ID 
ee ph Von m DwmwD,.onN1 ge eh nm m 


04 


sc 


sc 


30 


22 


JR #226C 


LD A,D 

iD B,7 

JR C,$223E 
RLCA 

RLCA 

RLCA 

LD B,$38 
LD C,A 

LD A,D 

CP 10 

JR 0,$2246 


RST ERRAUS 
‚BYT $13 


LD HL,ATTRT 


AND $24 
JR 2,$2257 
LD A,B 


LD C,A 


LD A,C 
CALL $226C 


LD A,7 

CP D 

SsBpc A 

CALL $226C 


RLCA 
RLCA 

AND $50 
LD B,A 


” 
; 
Li 
; 
[3 
s 
. 
} 
[3 
s 
; 
“ 
} 
; 
5 


BEHANDLUNG VON INK UND 


-—.— EEE a TE TE 


a NEE TEE TE 


” 
’ 
“ 
’ 
" 
, 
. 
’ 


INVERSEI 

MASKE ZUM AUSBLENDEN 
WERT RETTEN 

DEN FARAMETER TESTEN: 
NUR 0 UND 1 ZUGELASSEN 
FALSCHER WERT: ERROR 
WERT ZURÜCK IN A 
ADRESSE VON FFLAG 

ZUM ÄNDERN LADEN 


PAPER 


PARAMETER NACH A 

EB MIT MASKE FÜR INK LADEN 
SPRUNG BEI INK 

SONST PARAMETER 3 STELLEN 
NACH LINKS SCHIEBEN FÜR FAPER 
(MULTIPLIKATION MIT 9) 
MASKE FÜR PAPER IN BE LADEN 
WERT ZWISCHENSPEICHERN 
FARAMETER AUF 

AUF 0 -9 TESTEN 

PARAMETER IN ORDNUNG 


FEHLERMELDUNG; 
"INVALID COLOUR’ 


ADRESSE VON ATTRT ZUM ÄNDERN 
VON ATTRT, MASKT, PFLAG LADEN 
SPRUNG BEI FAFER UND INK 

MIT PARAMETER VON 0 - 7 

ATTRT LADEN 

BEI FAPER UND INK = 5 WIRD 
NICHTS GEÄNDERT 

PAPER/INK=9: PAFER/INE-FARBEN 
MÜSSEN SCHWARZ UND WEISS 


SPRUNG BEI PAPER/INK = SCHWARZ 
PAFER/INK = WEISS 


WERT ZWISCHENSPEIGCHERN 


WERT ZURÜCKLADEN 
ATTRT WIRD GEÄNDERT 


JETZT WIRD MASKT BEARBEITET 


MASKT WIRD NUR BEI FAPER/INK 
= 8 DDER 9 GEÄNDERT: 

A ENTHÄLT DANN $FF, SONST ® 
MIT B ALS MASKE MASKT ÄNDERN 


ZULETZT NOCH FFLAS BEARBEITEN 


DIE MASKE FÜR 

FFLAG WIRD GEBILDET 
NUR BITS & UND 4 
NACH B ERINGEN 


2268 
226A 
224B 
226C 
22&C 
226C 
226C 
226[ 
226D 
226E 
226 
22709 
2271 
2272 
2273 
2273 
2273 
2273 
2274 
2275 
227& 
2278 
227A 
227B 
227D 
227E 
227F 
2281 
2283 
2285 
2287 
2287 
2288 
228B 
22BE 
228F 
2290 
2291 
2292 
2294 
2294 
2294 
2294 
2294 
2294 
2294 
2297 
2299 
229B 
229D 
229E 
229F 
22AD 
2242 
2244 
22A& 
2249 
22AA 


BF SC 
46 22 


DB 


94 1E 


—.: A u TEE u 


LD A,B 
CP D 
Sec A 


XOR (HL) 
AND B 

XOR (HL) 
LD (HLI,A 
INC HL 

LD A,B 
RET 


; 
BEHANDLUNG VON FLASH 


SEC A 

LD A,D 

RRCA 

LD B,$80 

JR NZ,$227D 


LD A,C 

LD HL,ATTRT 
CALL $2260 
LD A,C 

RRCA 

RRCA 

RRCA 

IR $226C 


BEFEHL EORDER 


» 
; 
} 
” 
; 


5 
” 
; 


; 
5 
; 
3 


PFLAG WIRD NUR VERÄNDERT, 
WENN FAFER/INE = 9 IST: 
REG A DANN EFF, SONST Ö 


; 
SUBROUTINE ZUM SETZEN DER FARBDETAILS. REG HL ENTHÄLT 
DIE ADRESSE, REG B DIE 


MASKE UND RES A DEN NEUEN WERT 


DURCH DIE DOPPELTE EXOR-VER- 
KNÜPFUNG IN VEREINDUNG MIT DEM 
"LOS. UND B’ WERDEN NUR DIE 
GEWÜUNSCHTEN BITS GEÄNDERT 
FOINTER AUF NÄCHSTE FARB- 
VARIABLE SETZEN UND MASKE IN 

A BRINGEN 


UND BRIGHT 


—-— WE u u TEE u TEE a 


—— A A u Eu TE 


ZERDFLAG FüR BRIGHT SETZEN 
PARAMETER NACH A UND NACH 
RECHTS ROTIEREN (BIT7=BITÜALT) 
MASKE FüR FLASH NACH B LADEN 
SFRUNG BEI FLASH 

FüR BRIGHT NOCH MAL RDOTIEREN 
MASKE FüR BRIGHT 

WERT ZWISCHENSPEICHERN 
PARAMETER NOCH MAL HOLEN 

NUR DIE WERTE Ö,1 UND 8 


SIND ZUGELASSEN 
SONST ERROR 


WERT WIEDER IN A 

UND ADRESSE ATTRT ZUM 

ÄNDERN LADEN 

WERT WIEDER NACH A 

DAS 'SETZBIT’ (3) WIRD NACH 
BIT 7 (FLASH) BZW, 6 (BRIGHT) 
GEBRACHT UND MASKT 
ENTSPRECHEND VERÄNDERT 


DER PARAMETER VON BORDER WIRD üBER EINEN "OUT’-BEFEHL 
AUSGEGEBEN. ANSCHLIESSEND WIRD DER FARAMETER IN BORDER 


GESPEICHERT 


CALL $1E94 
CP 8 

JR NEC,$2244 
OUT ($FE),A 
RLCA 

RLCA 

RLCA 

BIT 5,A 

IR NZ,$22A6 
XOR 7 

LD (BORDER),A 
RET 


.—— NE un TEE un TE 


u TE 


FARAMETER HOLEN 

NUR 0 - 7 ZUGELASSEN 
SONST ERROR 
PARAMETER AUSGEBEN 
DIESEN UM 5 BIT NACH 
LINKS SCHIEBEN 


BORDERFARBE = HELL ? 

JA: EDITORBEREICH = SCHWARZ 
SONST WEISS 

NEUE BORDERFARBE 
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SUBROUTINE ZUM BERECHNEN EINER 'FIXEL’ (PUNKT) -ADRESSE 
AUF DEM BILDSCHIRM 

AUFRUF VON POINT UND PLOT MIT ADRESSE DES PUNKTES IN 
BC. BEI RETURN ENTHÄLT HL DIE ADRESSE DES BYTES IM 
ENTSPRECHENDEN BILDSCHIRMBEREICH UND A DIE BITPOSITION 
(DES PUNKTES) IN DIESEM BYTE 


"I. ——0 ME a N u 


KTADR LD A,$AF DIE Y-KOORDINATE (IN B) DARF 


’ 
SUB B ; NICHT GRÖSSER ALS 175 SEIN 
F9 24 JP C,$24F9 ; SONST ERROR 
LD B,A ; B = 175 - Y-KOORDINATE 
; (SUBTRAKTION: ES WIRD VON 
; UNTEN GEZÄHLT, 175 = 22 BILD- 
; SCHIRMZEILEN * B LINIEN -1) 
AND A ; B7 BIS BO SIND DIE EITS VON B, 
RRA ; C7 BIS CO Von C 
SCF 
RRA 
AND A 
RRA 
XDR B ; DIE MANIPULATIDNEN ERGEBEN 
F8 AND $FB ‚ FOLGENDES BIT-ERBERNIS 
XDR B ; (=HIGHADRESSE) IN Hi 
LD H,A ’ 0,1,0,B7,B6,B2,Bi,BO 
LD A,C ; MIT DER X-KOORDINATE IN C 
RLCA ; WIRD ÄHNLICH VERFAHREN, 
RLCA ; SODASS SICH IM L-RESISTER 
RLCA ; (=LOWADRESSE) FOLGENDES 
xOR B ; BITMUSTER ERGIBT: 
c7 AND $C7 ; B5,B4,83,07,06,C5,64,C3 
XOR B 
RLCA 
RLCA 
LD L,A 
LD A,C ; IN RES A WIRD DIE BITADRESSE 
07 AND 7 ; INNERHALB DIESES BYTES 
RET ; GEBILDET 


; SUBROUTINE FÜR DIE POINT-FUNKTION 


DAS BIT IST 1 FÜR INK UND 
0 FÜR FAPER 


07 23 CALL #2307 ; Y-KOORDINATE NACH B, X NACH C 
AA 22 CALL PKTADR ; DAZUGEHSRIGE PUNKTADRESSE 
; BESTIMMEN 
LD B,A ı B DIENT ALS BITZÄHLER 
INC B 
LD A,{HL) ; DAS ENTSPRECHENDE BYTE LADEN 
RLCA ; UND SOLANGE ROTIEREN, BIS DAS 
> FD DINZ $22D4 ; SESUCHTE BIT GLEICH BITO 
01 AND 1 ı IN REG A IST UND DIESES 
> 28 2D JP +2D28B ; BIT IM CALC.-STACK SPEICHERN 
; 
; 


BEFEHL PLOT 

BEIM EINSTIEG LIEGEN DIE KOORDINATEN AUF DEM CALC.- 
STACK. UNTER BERÜCKSICHTIGEUNG VON "INVERSE’ UND "OVER’ 
(IN PFLAG) WIRD DER PUNKT ENTSPRECHEND GESETZT 


we EEE a Eu 


22DtC 
22DF 
22E2 
22E5 
22E5 
22E9 
22EC 
22ED 
22EE 
22F0 
22Fi 
22F3 
22F4 
22F5 
22F5 
22FB 
22FA 
22FtC 
22FD 
22FF 
2301 
2302 
2303 
2303 
2303 
2303 
2304 
2307 
2307 
2307 
2307 
2307 
2307 
2307 
230A 
230B 
230C 
230F 
2310 
2311 
2312 
2313 
2314 
2514 
2314 
2314 
2314 
2514 
2317 
231A 
231C 
231D 
251F 
2520 
2320 
25320 
2320 
2320 


; DB 


14 


7D 
22 
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OB 


2D 
24 


PLOTHA 


; 
sC PLOTTE 


-—— 0 | TEE u NEE 


TAINA 


NEE ae N 


CALL $2307 
CALL PLOTTE 
JP AKTECOL 


LD (COORDS) ‚BC 
CALL PKTADR 

LD B,A 

INC B 

LD A,$FE 

RRCA 

DINZ $22F0 

iD B,A 

LD A,(HL) 


LD LE, tIY+$57) 
BIT 0,C 

JR NZ,$22FD 
AND B 

BIT 2,6 

JR NZ,$2303 
XOR B 

CPL 


LD {HLI,A 
JP $BDB 


CALL STAINA 
LD B,A 

PUSH BE 
CALL STAINA 
LD E,C 

POP BC 

LD D,C 

LD C,A 

RET 


CALL $2DD5 
JP C,$24F9 
LD C,1 

RET 2 

LD C,$FF 
RET 


BEFEHL CIRCLE 
ES WIRD EIN ANGENÄHERTER KREIS MIT RADIUS 'R’ UM DIE 
KOORBINATEN X,Y {=MITTE) GEZEICHNET. ALLE DREI WERTE 
WERDEN ZUERST GERUNDET 


. ——7_ _ ME a TEE a —— WE u EEE u TEE a BE a TEE a TA a. er 


SUBROUTINE, UM BC MIT DEN LETZTEN ZWEI WERTEN, 
BEREICH JEWEILS VON #00 BIS $FF, DES CALC.-STACK ZU 
LADEN. D UND E ENTHALTEN JEWEILS +/-1i FÜR DIE 

ZEICHENRICHTUNG 


—— 0 Wr an TE 


Y-KDORDINATE NACH B, 
PLOTSUBROUTINE 
TEMPORÄRE FARBEN SETZEN 


X NACH C 


SYSTEMVARIABLE COORDS SETZEN 
DIE PUNKTADRESSE BESTIMMEN 
BITNUMMER NACH B 

+1 ZUM RICHTIGEN ZÄHLEN 
NULLMASKE IN A WIRD SOLANGE 
ROTIERT, EIS DIE RICHTIGE 
BITPOSITION GEFUNDEN IST 
NULLBITPOSITION NACH E 

DAS BYTE, IN DEM EIN PUNKT 
GESETZT WERDEN SOLL, LADEN 
PFLAGS: TEST AUF 


"DVERL' 

JA 

NEIN BIT NULL SETZEN 
"INVERSEI’ ? 

JA 


DAS ERGENIS IST: 
INV.i UND DVER1: 
INV.i UND OVERO: 
INV.O UND OVERI1: BIT NEGIEREN 
INV.O UND OVERO: BIT = 1 
ERGEBNIS SPEICHERN 

DAS ATTRIBUTBYTE NOCH SETZEN 


BIT BLEIBT 
BIT = 0 


IM 


LETZTEN WERT DES CALC,.-STACK 
HOLEN UND NACH BC BRINGEN 
ZWISCHENSPEICHERN 

ZWEITEN WERT VOM CTALC.-STACK 
+/- 1 ZWEITER WERT NACH E 
ERSTEN WERT ZURUCKHOLEN 

+/- 1 ERSTER WERT NACH D 
ZWEITER WERT NACH C 


LETZTE FLOATINGPOINT-ZAHL VOM CALC.-STACK NACH A 
LADEN, BEREICH $00 BIS $FF. C ENTHÄLT +1 FüR POSITIVE 
UND -i FÜR NEGATIVE WERTE 


FLOATINGPOINT-ZAHL HOLEN 
ERROR, WENN ZU GROSS 

C=1 FüR POSITIV 

RETURN FOSITIV 

SSONST C=-1 FüR NEGATIV 
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2 
oO nmmD 


ID DB hJ 


IL ka eg A LA I A CA 9 I 


PM) MM MRrRIM TH M 
I ca CA cry CA A A NND ID 


dd ed CA rc CI Ad Le 


[n 
m 


3NIWMND MM MM mMHh 
[4 Lk 


C2 
01 
E0 


1 


81 
05 


Al 


83 


TD2 


30 


08 


; 
KREIS RST GETAKT 


BB 

JP NZ,$1CBA 
RST BETNXT 
CALL $1082 
CALL $1BEE 
RST CALRUF 


an u NE Ta 


„BYT $2A 
„BYT $3D 
„BYT $38 
LD A,cCHL) 
CP $B1 

IR NC,$233 
RST CALRUF 
„BYT $02 
„BYT $38 
IR PLOTHA 


—.-— 00 EEE A A En 


RST CALRUF 

„BYT $A3 ; 
„BYT $38 ; 
LD (HL), #83 i 
RST CALRUF f 
.BYT $65 ; 
‚BYT $02 ; 
„BYT $38 ; 
CALL $#247D ; 


AKTUELLES ZEICHEN LADEN 

WENN ES KEIN KOMMA IST, 

ERROR 

CHADD +1, NÄCHSTES ZEICHEN 
RADIUS IN DEN CALC.-STACK HOLEN 
WENN SYNTAXPRÜFUNG, AUSSFRUNG 
CALCULATOR AUFRUFEN 
CALC.-STACK ENTHÄLT: %,Y,R 
ABS BILDEN 

R WIEDER AUF STACK 

ENDE 

EXPDNENT DES RADIUS LADEN 
RADIUS KLEINER 1 ? 

NEIN 

FALLS KLEINER, IM 

CALC.-STACK LÖSCHEN: X,Y 

ENDE 

NUR DIE MITTE PLOTTEN 


P1/2 AUF STACK: X,Y,R,P1/2 
CALC-ENDE UND EXPONENT 

VON .PI/2 AUF 2%PI ÄNDERN 
X,Y,R,2#PI 

2*P]I NACH MEMS 

2*PI LÖSCHEN: X,YyR 

CALC-ENDE 

STARTPARAMETER INITIALISIEREN 


DER KREIS WIRD AUF GERADENSTÜCKE ZURUCK- 


GEFÜHRT, DIE MIT DER 
GEZEICHNET WERDEN. DIE 
STÜCKE IST A UND IN BC 


PUSH BC 

RST CALRUF 
„BYT $31 
‚BYT $E1 
„EYT $04 
‚BYT $38 

LD A,tHL) 
CP $B0 

JR NC,$235A 
RST CALRUF 
‚BYT 02 
„EYT 02 
„BYT $38 
POP EC ; 
IP PLOTHA 


-—.-— DE u Eu TE u EEE 


RST CALRUF 
‚BYT $C2 
«BYT $01 
«BYT $C0 
„BYT $02 
„BYT #03 
„BYT $01 


in TEE an TE a ME 


"DRAW’-SURROUTINE 


ANZAHL DER GERADEN- 
ENTHALTEN 


ar RETTEN 


:,SIN{PIFA) 
*SIN{PI/A) 


Im m no 


1,88 I. TEELSTWER 


NEIN 

SONST EIS AUF X,Y 

ALLES LöSCHEN UND NUR 
DEN MITTELPUNKT PLOTTEN 


STACKKORREKTUR 
PUNKT PLOTTEN 


X,Y,R,R*SIN{PIZA) 
R*SIN(PI/A) NACH MEMZ 
KyY,R#SIN(PI/A),R 

R NACH MEMO SFEICHERN 
X,Y,R#SIN(PI/A) 
X,Y-R#SIN{FI/A) 
Y-R#SIN{PI/A),X 


.J 
un: 
rJ 


rJ 


mw rör) th) pr) ro 
PR a 22 Ba 2 Ba ES a > a 2 a 2 


DD © mm co m vo m 
AM ID PM N 


r 
D 


2385 


38 


>4 


2C 
06 
BE 


s 77 


B2 
EE 


62 
lE 


lE 


Sc 


D 24 


IC 
1B 


C3 77 24 


ET NE u TE 


«BYT $Eö 
‚:BYT $üör 
«BYT £C0 
‚BYT $01 
.BYT $31 
‚EYT $E0O 
.BYT #0l 
«BYT $21 
.EYT $EO 
‚BYT AO 
‚BYT $C1 
.BYT #02 
‚BYT #38 


INC (1IY+$62) 
CALL $1E94 

LD L,A 

PUSH HL 

CALL $1E94 

POP HL 

LD H,A 

LD (COORDS) ‚HL 
POP EC 

IP 2420 


BEFEHL DRAW 


a Eu TEE a TEE a TEE a 


Y-R&5IN{PI/A),X,R 
Y-R#SIN{PI/A),X+R 

X+R NACH MEMO SPEICHERN 
I=X+R,J=Y-R&*5SIN(PI/A) 


[er 
- 
cı 


m m zZ [er ea 
m“ 1 0 
oO GG x u 5 GW ou Kü 


== 


EXP, MEM2 +1 

X+R NACH A LADEN 

IN HL KOPIEREN 
ZWISCHENSFEICHERN 
Y-R#SIN(PI/A) HOLEN 
UND NACH 

H KOPIEREN 

COORDS DAMIT SETZEN 
GERADENZÄHLER HOLEN 
UND DIE GERADENSTÜCKE 
ZEICHNEN 


DIE STARTKOORDINATEN (X0,Yö) EINER GERADEN 
sIND IN COORDS ENTHALTEN. WENN AUSSER DEN 
ENDFUNKTEN X UND Y KEINE WEITEREN PARAMETER 
ANGEGEBEN SIND, WIRD EINE GERADE VON X0,YoO 
NACH X+X0,Y+YO GEZEICHNET, 


RST GETAKT 
Erz 

JR Z,$23BD 
CALL #iBEE 


JP #2477 
RST GETNXT 


CALL $1C82 
CALL #1BEE 


RST CALRUF 
«BYT $C5 
«BYT $A2 
«BYT 04 
:BYT $1F 
«BYT $31 
‚BYT £230 
.BYT $30 
‚BYT 00 
‚BYT $06 
„BYT $02 
.BYT #38 
JF #2477 


-— ME u NEE u TE u A u EEE EEE a 


AKTUELLES ZEICHEN LADEN 


UND AUF KOMMA VERGLEICHEN 


JA: 3. FARAMETER FOLST 
ZUM NÄCHSTEN BEFEHL BEI 
DER SYNTAXPRÜFUNG 


SONST DIE GERADE ZEICHNEN 


NÄCHSTES ZEICHEN HOLEN 
(DIES IST DER WINKEL) 


WINKEL AUF DEN CALC.-STACK 


ZUM NÄCHSTEN BEFEHL WÄHREND 


DER SYNTAXPRÜFUNG 
X,Y,8, G=WINKEL 

5 NACH MEMS SPEICHERN 
Y,Y,6,.5 

X,Y,6/2 

X,Y,5IN{6/2) 
X,Y,SINt6/2) ,SIN(8/2) 


X,Y,SIN(G/2),(1 DD.O), G=0 ? 


X,Y,51N(G/2),(0 DOD.1), 
SPRUNG, WENN WINKEL 
<>0 NACH ZEIWIN 


INV, 


X,Y, WINKEL WAR 0, Z. B. 


2#N#PI 
GERADE ZEICHNEN 
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23N3 


’ 
2343 CO ZEIWIN .BYT $C0 ; SIN(6/2) NACH MEMO 
23A4 02 „BYT $02 N 
2345 Ci ‚„BYT $Ci1 ; Y NACH MEMO SPEICHERN 
2346 02 „BYT $02 X 
2347 31 „BYT $31 EX 
23AB 2A ‚BYT $2A > X,X'=ABS(X) 
2349 Ei „BYT $E1 AIR EN 
23AA 1 „BYT $01 BARS 
25AB Ei „BYT $E1 ei 
23AC 2A „BYT $2A > X,Y,X’,Y'=ABS(Y) 
23AD OF „BYT $OF > K,YyXU+Y 
23AE EO ‚BYT $EO > X,Y,X’+Y’ ,SIN{6/2) 
23AF 05 „BYT $05 > X,Y,Z’=(X’#+Y')/SIN(G/2) 
23B0 2A „BYT $2A ; X,Y,Z=ABS(Z’) 
23B1 EO „BYT $EO ; X,Y,2,5IN(6/2) 
23B2 01 ‚BYT $01 ; X,Y,SIN{6/2),2 
23B3 3D „BYT $3D ; 2 IN FLOATINGP.-FORM 
2354 38 .BYT $38 ; X,Y,5IN(6/2),2 
23B5 7E LD A,(HL) ; EXPONENT VON Z LADEN 
2366 FE Bi CP $B1 ı 231? 
23B8 30 07 JR NC,$23C1 JA 
23BA EF RST CALRUF ; X, Y,SIN(6/2),2 
23BB 02 „BYT $02 » SIN(6/2) UND Z 
23BC 02 „BYT $02 LÖSCHEN 
23BD 38 .BYT $38 er 
23BE C3 77 24 JP $2477 ; GERADE ZEICHNEN 
2301 ; 
2301 CD 7D 24 CALL $247D ; PARAMETER INITIALISIEREN 
2304 C5 PUSH BC ; GERADENZÄHLER RETTEN 
2365 EF RST CALRUF ; X,Y,SIN{6/2),7 
23506 02 .BYT $02 ; X,Y,SIN{B/2) 
2307 Ei „BYT $EI ; X,Y,SIN(6/2) ‚SIN{6/2*A) 
2308 01 „BYT $01 ; X,Y,SIN(6/2#A) ,SIN(B/2) 
2309 05 „BYT $05 > X,Y,SIN(B/2*A) /SIN(6/2)=W 
25CA Ci ‚BYT $C1 ; W IN MEMI SPEICHERN 
23CB 02 „BYT $02 > KyY 
2300 01 „BYT $01 I YyX 
2300 31 „BYT $231 Beam 
25CE Ei ‚BYT $E1 ann 
23CF 04 „BYT $04 > Y KK 
2300 62 ‚BYT $C2 ; X#4 IN MEM2 SPEICHERN 
23D1 02 „BYT $02 > YıX 
2302 01 „BYT 801 si. 
2303 3 „BYT $31 man 
2304 Ei .BYT $E1 I KYY,W 
2305 04 „BYT $04 > X,Y,Y&W 
23D6 E2 ‚„BYT $E2 > K,Y,Y&W,X&W 
2307 E5 „BYT $ES5 > X,Y,Y&W, KW ,G 
23D8 EO ‚BYT $EO > X,Y,Y&W,X#W,6,6/A 
2309 03 ‚BYT $03 > X,Y,Y&W,X&W,6-6/A 
23DA A2 ‚BYT $A2 > Y,Y,Y&W,X&W,B-B/A,.5 
23DB 04 „BYT $04 > X,Y,Y&W,X&W, (B-6/A) /2=F 
2300 31 „BYT $31 > X, Y,Y&W,X&W,F,F 
23DD 1F „BYT $IF > X,Y,Y&W,X&W,F,SIN(F) 
23DE C5 „BYT $C5 : SIN(F} IN MEMS SPEICHERN 
23DF 02 ‚BYT $02 > X,Y,Y&W,X&W,F 
23E0 20 ‚BYT $20 ; X, Y,Y&W,X*4,CDS{F) 
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23El 
23E2 
23E3 
23£4 
23E5 
23E6 
23E7 
23E8B 
23E9 
23EA 
23EB 
23EC 
25ED 
23EE 
2S5EF 
23F0 
23F1 
25F2 
23F3 
23F4 
25F5 
23F6 
25F7 
23F8 
23F9 
23FA 
23FB 
25FC 
23FD 
23FE 
2400 
2401 
2404 
2405 
2406 
2407 
2408 
240B 
240E 
240F 
2410 
2411 
2412 
2413 
2416 
2419 
241 A 
241B 
241C 
241D 
241E 
241F 
2420 
2420 
2420 
2420 
2420 
2420 


B1 


7T 24 


7D SC 
28 2D 


7E SC 
28 2D 


.—.—— 11 


„BYT 
.BYT 
.BYT 
‚.BYT 
.BYT 
«BYT 
.BYT 
.BYT 
.BYT 
‚EYT 
.BYT 
.BYT 
.BYT 
‚BYT 
„BYT 
«BYT 
.BYT 
.BYT 
.BYT 
„BYT 
«BYT 
„BYT 
.BYT 
‚BYT 
«BYT 
«BYT 
.BYT 
.BYT 


LD A, (DE) 


CO 


$2A 
$El 
2A 
OF 
$02 
+38 


CP #81 
POP BC 


JP C,$2477 


PUSH 


RST CALRUF 


„BYT 
«BYT 


LD A, (COORDS) 
CALL $2D28 
RST CALRUF 


.BYT 
‚BYT 
.BYT 
«BYT 


LD A, (COORDS+1) 
CALL $2D28 
RST CALRUF 


„BYT 
«BYT 
«BYT 
„BYT 
‚BYT 


BC 


$01 
+38 


60 
soF 
01 
$38 


05 
or 
$EO 
$ES 
$38 


POP BC 


‚END 


.LIB SPEC2400-5 


—-—. N a EEE ae EEE u TEE u EEE a EEE u ME a Er ME a EEE a EEE u TE a EEE an NEE u NEE a En EEE u NEE u A a EEE u NEE a NEE u Eu Eu 


EOS(F) IN MEMO SPEICHERN 


X,Y,Yahl, Kehl 
X&W IN MEM2 SPEICHERN 
X,Y,Y#W 

YxW IN MEMi SPEICHERN 
X,Y,Y*W,SIN(F) 
X,Y,Y#W*SIN(F) 
X,Y,Y&W#SIN{F) ,X#M 


X,Y,Y#W#SIN(F),X*W,COS CF) 
X,Y,Y#W*SIN{F) ,X&*W&#CDS (F) 
X,Y,Y#W#SIN(F)+X*W&C0S (F)=U 


X,Y,U,Y#W 
X,Y,Y#W,U 

U IN MEMI SPEICHERN 
XY,Y&H 
X,Y,Y*W,COS(F) 
X,Y,Y*W#C0S(F) 
X,Y,Y#W#COS(F) ,X*M 


X,Y,Y&W&COS(F) ,X*W,SIN(F) 
X,Y,Y&#W*COS(F) ,X*W&*SIN(F) 
X,Y,Y#W&COSCF)-X&W&SIN(F)=V 


NACH MEMZ SPEICHERN 


‚ DE ZEIGT AUF 
EXPONENT VON Y’+U' 
EXPONENT LADEN 
vHu’tı1? 
(GERADENZÄHLER HOLEN) 
JA: NUR GERADE ZEICHNEN 
GERADENZÄHLER RETTEN 
X,Y 

Y.X 

ENDE 

X0 LADEN UND IM 
CALC.-STACK SPEICHERN 
Y,X,X0 

xD IN MEMO SPEICHERN 
Y.X+X0 

X+X0,Y 

ENDE 

YO LADEN UND IM 
CALC.-STACK SPEICHERN 
X+X0,Y,YO 

Yo IN MEM5 SPEICHERN 
X+X0,Y+YO 
X+X0,Y+Y0,X0 
X+X0,Y+Y0,X0,YO 

ENDE 

GERADENZÄHLER HOLEN 


SINELAIR ZX SPECTRUM TEIL 2400 


IM FOLGENDEN WERDEN DIE GERADENTEILE GEZEICHNET 


AUF DEM CALC.-STACK LIEGEN DIE WERTE: 
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2420 
2420 
2420 
2420 
2420 
2421 
2423 
2425 
2426 
2427 
2428 
2429 
247A 
242B 
242C 
242D 
242E 
242F 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
243A 
243B 
243C 
243D 
243E 
243F 
2440 
2441 
2444 
2444 
2447 
2448 
2449 
2444 
244B 
244C 
2440 
244E 
D4AF 
2450 
2453 
2456 
2457 
2458 
2459 
245C 
245D 
2A5F 
245F 
245F 
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14 


7E 
29 


Sc 
2D 


XO+X,YO+Y,Xn,Yn 


ı Un=Xn#+1-Xn, Vn=Yn+1-Yn 


} 
; ALS ZWISCHENWERTE WERDEN BENUTZT: 
» 


GERADS 


DEC B 


JR 27,$245F 


JR $2 


RST CALRUF 


.BYT 
«BYT 
„BYT 
‚BYT 
„BYT 
„BYT 
‚BYT 
‚EYT 
«BYT 
.BYT 
‚BYT 
«BYT 
„BYT 
.BYT 
.BYT 
«BYT 
.BYT 
‚.BYT 
«BYT 
PUSH 


RST CALRUF 


.BYT 
‚BYT 
„BYT 
.BYT 
.BYT 
«BYT 


LD A,(CDORDS) 


CALL #2D28 
RST CALRUF 


« BYT 
‚EYT 
„BYT 
.BYT 
.BYT 
.BYT 
«BYT 
„BYT 


LD A, (CODRDS+i} 
CALL #2D28 
RST CALRUF 


‚BYT 
«BYT 


CALL #24B7 


FOF EB 


DJNZ GERADS 


RST CALRUF 


439 


$E1 
$31 
$E3 
$04 
$E2 
$E4 
$04 
$03 
$C1 
£02 
$E4 
04 
$E2 
$E3 
$04 
$0F 
$02 
£02 
$38 
BC 


60 
$02 
$El 
OF 
#31 
+38 


03 
$E0 
+E2 
$0F 
60 
#01 
£EÜ 
338 


#05 
38 


C 


; 


TEILSTÜCKE FERTIG ? 
JA: LETZTES ZEICHNEN 


Un-1 

Un-1,Un-1 
Un-1,Un-1,C05(6/A) 
Un-1,Un-1*C05(6G/A) 
Un-1,Un-1*C0S(6/A) ,Vn-1 
Un-1,Un-1*C0S(6G/A),VYn-1,5IN(6G/A) 
Un-1,Un-1*C0S(G/A) ,Vn-1*SIN(G/A) 
Un-1,Un-1*E0S{1G/A}-Vn-1*SIN(G/A) 
Un=Un-1%*C05... NACH MEMI 
Un-1 

Un-1,5IN(G/A) 

Un-1*SIN(6G/A) 

Un-1*5IN(G/A) ,Vn-1i 
Un-1%*SIN(G/A},Vn-1,C0S(6/A) 
Un-1%*5IN(G/A) ,‚Vn-1%C0D5S (G/A) 
Vn=Un-1*SIN(G/A)+En-1*C0D516G/A) 
Vn NACH MEM2 SPEICHERN 

-, tX0+%... SIND NDCH AUF 
DEM CALE.-STACK) 
GERADENZÄHLER RETTEN 
XO+X,Yü+Y,Xn,Yn 

Yn NACH MEMO SFEICHERN 
XO+X,YO+Y,Xn 
X0+X,Y0O+Y,Xn,Un 
X0+X,YO+Y,Xn+Un=Xn+1 
XO+X,YO+Y,Xn+1,Xn+i 

ENDE 

DAS BEREITS ERREICHTE Xn' 
NACH REG A LADEN 

DIESES AUF DEN STACK LEGEN 
KO+X,YO+Y,Xn+1,Xn#+1,Xn' 
XD+X,YO+Y,Xn+1,Xn+i-Xn'=Un' 
XO+X,YO+Y,Xn+1,Un',Yn 
X0+%X,YO+Y,Xn+1,Un'‘',Yn,Vn 
...,Un’,Yn+VYn=Yn+i 

Yn+i NACH MEMOÖ SPEICHERN 
ER: 9 

Un ;Yn*+l 

ENDE 

Yn’ {XIE XÄn') LADEN UND 

AUF DEN CALC.-STACK BRINGEN 
35:0 ;yYnrl,in' 

er srnFrietn' "Vn’ 
XO+X,Yö+Y,Xn+t1,Yn+1,Un’,Vn’ 
TEILSTUCK ZEICHNEN 

ZÄHLER ZURÜCKHOLEN 

WEITER IN DER SCHLEIFE, 

BIS ALLE TEILE GEZEICHNET 


DIE ENDEDORDINATEN DES 


2460 
24äl 
2462 
2453 
2464 
2467 
246&A 
246B 
246C 
246D 
ZAbE 
2471 
2474 
2475 
2476 
2477 
247A 
247D 
247D 
247D 
247D 
247D 
2470 
247D 
247D 
247D 
247E 
247F 
2480 
2481 
2482 
2485 
2484 
2485 
2486 
2487 
2488 
2489 
248A 
248D 
248F 
2491 
2493 
2495 
2497 
2498 
249B 
249B 
249C 
249D 
249E 
2A9F 
24A0 
24Al 
242 
2443 
24A4 
24A5 


D5 
28 2 


B7 
4D 


24 
OD 


A ME EEE a TE Ta 


„BYT 
„BYT 
‚ BYT 
.BYT 


LD A, {CDORDS) 


CALL 
RSTC 
.BYT 
.BYT 
‚.BYT 


LD A, {COORDS+1) 


CALL 
RSTEC 
‚BYT 
«BYT 
CALL 


#02 
+02 
01 
+38 


$2D28 
ALRUF 
05 
#01 
+38 


$2D28B 
ALRUF 
#05 
38 
$24B7 


IP $DAD 


LETZTEN TEILSTÜCKS WERDEN 
GELÖSCHT 

Yo+Yy,XO+X 

ENDE 

Xm = ENDPUNKT LADEN 

AUF BEN STACK BRINGEN 
Yö+Y,X0+X,Xm 

YO+Y,XO+X-Xm 

XO+X-Xm,YO+Y 

ENDE 

Ym (WIE Xm) LADEN UND 

AUF DEM STACK SPEICHERN 
X0O+X-Xm,YO+Y,Ym 

XO+X-Xm, YO+Y-Ym 

ENDE UND DEN LETZTEN GBERADEN- 
TEIL BIS X0+X,YO+Y ZEICHNEN 
TEMPORÄRE FARBEN SETZEN 


SUBROUTINE ZUM BERECHNEN DER ANFANGSPARAMETER. 
BEIM AUFRUF DURCH DIE SUBROUTINE ZUM ZEICHNEN 
DES KREISES LIEGEN X,Y,R (RADIUS, HIER=Z) UND 


BEI AUFRUF DURCH ’"DRAW’ 


CALEULATOR 


STACK. 


Z AUFGEFÜHRT 


RST CALRUF 


.BYT 
„BYT 
.BYT 
.„BYT 


„BYT 
„BYT 
„BYT 
„BYT 
„BYT 
„BYT 
„BYT 
CALL 
JR £, 


$31 
$28 
$34 
$32,$00 


$01 
205 
ES 
+01 
$05 
£2A 
+38 
$2DD5 
+2495 


AND #FC 


ADD 4 


JR NC,#2497 


LD A, 
PUSH 
CALL 


RST EC 
«BYT 
.BYT 
«.BYT 
„BYT 
.BYT 
.BYT 
«BYT 
.BYT 
.BYT 
.BYT 


$FC 
AF 
+2D28 


ALRUF 
$E5 
01 
05 
#31 
$1F 
+04 
+02 
$31 
£N2 
204 


1... 


X,Y,SIN{B/2),Z AUF DEM 


DIE RECHNUNGEN WERDEN NUR AB 


2; 
2,2 

1,50R (2) 

1,50R(Z),2, KONSTANTE 2 
SPEICHERN 


1,2,50R(2) 
1,2/S0R (7) 
1,2/S0R(Z),6 
1,8,2/S0R 2) 
1,8*50R (7) 7/2 
2,ABS(6*S0R (7) 7/2) 

7 ,Ai=ABS(G#SOR(Z)/2) 
Ai IN REG A LADEN 
A>256: 252 LADEN 
A*INT(AL/4) BILDEN 
4 ADDIEREN 

SPRUNG BEI { 256 
SONST 252 LADEN 
TEILSTÜCKE SPEICHERN 
TEILSTÜCKE AUCH AUF 
CALC.-STACK LEGEN 
2,A(=TEILSTÜCKE) 
7,4,6 

2,6, A 

17,8/A 

1,6/A,6/A 
2,6/A,SIN(B/A) 
SIN(B/A) NACH MEMA 
1,6/A 

1,6/A,67A 
1,6/A,6/A,.5 
1,8/4,.5%6/A 
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24A& IF ‚BYT $1F ; 2,6/A,SIN(.5#6/A) 

2447 Ci .BYT $C1i ; SIN(.S*G/A) NACH MEMI 
24AB O1 ‚.BYT $01 ; 2,SIN(.5*6/A),G/A 

2449 CO .BYT $C0  6/A NACH MEMO KOPIEREN 
24AA 02 ‚.BYT $02 ; 2,5SIN(.5*6/A) 

24AB 31 sBYT #31 ; Z,5IN{.5#6/A) ,SIN(.5*6/A) 
24AC 04 ‚BYT #04 ; 2,SIN(.5*G/A)#SIN(.5*6/A)=$#S 
24AD 31 .BYT $31  2,8#8.935 

24AE OF „BYT $0F ; 2Z,245%#5 

24AF Al .BYT $Ail ; 7, 228%=8,1 

24E0 03 .„BYT $03 ; 7,228%5=1 

24Bi 1B .BYT $1B : 2, 1728538 

24B2 C3 ‚.BYT $C3 ; 1-2*5*5 NACH MEM3 

24B3 02 .BYT $02 = 

24B4 38 «.BYT #38 ; ENDE 

24B5 Ci POP BC ; ZÄHLER FÜR GERADENTEIL- 
24B6 C9 RET ; STÜCKE NACH BC LADEN 
24B7 - 

24B7 ; SUBROUTINE ZUM ZEICHNEN VON GERADEN 

24B7 s 

24B7 CD 07 23 CALL #2307 ; ABS(Y) NACH B, ABStX) 
24BA ; NACH C, VORZEICHEN Y NACH D, 
24BA ; VORZEICHEN X NACH E LADEN 
24BA 79 LD A,c ; X UND Y VERGLEICHEN, 

24BB BB EP B ; SODASS DER GRÖSSERE WERT 
24BC 30 06 JR NC,#24C4 ; WERT NACH H UND 

24BE 659 LD L,cC ; DER KLEINERE NACH L 

24BF ; GELADEN WERDEN KANN 

24BF DS FUSH DE ; RICHTUNGEN RETTEN 

2400 AF XOR A ; A LÖSCHEN 

2401 5F LD E,A s E LÖSCHEN: 1. SCHRITT: 
2402 ; +/-1,0 (=HORIZONTAL) 

2462 18 07 JR $24CB 

2404 ; 

24064 Bi OR C ; BEI X>=Y: PRÜFEN, OB 

2405 ; BEIDE PARAMETER 0 

2405 CB RET Z ; JA, RETURN 

2406 68 LD ; ABS{Y) NACH L 

2407 41 LD B,Cc s ABS(X) ANCH B 

24CB D5 FUSH DE ; RICHTUNGEN RETTEN 

2469 15 00 LD D,0 : D-LöSCHEN: 1. SCHRITT 
2ACB ; O,+/-1 (=VERTIKAL) 

24CB 60 LD H,B ı DER GRÖSSERE WERT VON 
24CEC ; ABS(X) BZW. ABS{Y) NACH H 
24CC 78 LD A,B ; NACH A KOPIEREN UND 

24CD IF RRA ; DURCH 2 DIVIDIEREN 

24CE 85 ADD L TEST AUF L+H723255 

2ACF 38 03 JR C,#24D4 s JA: DIAGONALSCHRITT 

24D1 BC EP H ; L+H/2XH, DANN HORIZONTAL 
2402 38 07 JR C,#24DB ; DDER VERTIKALEN SCHRITT 
24D4 94 SUB H ; A - H BILDEN UND NACH 
24D5 AF LD C,A ; C KOPIEREN 

24D& D?9 EXX : 2. REGISTERSATZ EINSCHALTEN 
24D7 cC1 FOP BC ; RICHTUNG NACH BC’ 

2408 C5 FUSH BC ; WIEDER ZKISCHENSPEICHERN 
2409 18 04 JR #24DF ; UND ZEICHNEN 

24DB 4F LD 5,A ; AINC RETTEN 

24DC DS PUSH DE ; RICHTUNG RETTEN 
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24DD D? EXX 2, RESISTERSATZ 

Z24DE Ci POF BC ; RICHTUNG NACH EC’ 

2aDF 2A 7D SC LD HL, (EOORDS} ; COORDS NACH HL’ (START) 
24E2 78 LD A,B ; Y-SCHRITT NACH A 

24£E3 84 ADD H ; Y-KOORDINATE ADDIEREN 

24E4 47 LD B,A ; NACH E’ KOPIEREN 

24E5 79 LD A,Cc s ZUM X-SCHRITT 1 UND 

24E6 3C INC A ; X-KOORDINATE ADDIEREN 

24E7 85 ADD L 

24E8 23B OD JR C,#24F7 ; WEITER AUF BEREICHSUBER- 
24EA ı SCHREITUNG TESTEN 

24EA 2B OD JR Z,#24F9 ; KEIN CARRY UND ZERD: ERROR 
24EC 3D DEC A ; A WIEDER KORRIGIEREN 

24ED AF LD £,A ; NACH E LADEN 

24EE CD ES 22 CALL PLOTTE ; DEN PUNKT ZEICHNEN 

24Ffi D? EXX ; NORMALER RESISTERSATZ 

24F2 79 LD A,cC s X-WERT NACH A KOPIEREN 

24F3 10 D9 DJNZ £24CE ; IN DER SCHLEIFE WEITER 

24F5 Di FOP DE ‚ı STACK KORRIGIEREN 

24F& LC9 RET 

2457 28 F3 JR Z,$24EC ; ZERO UND CARRY SIND 

24F9 ; IN ORDNUNG 

24F9 s 

24F9 CF RST ERRAUS ; FEHLERMELDUNG: 

24FA 0A «BYT £0A ; "INTEGER OUT OF RANGE’ 

24FB ; 

?4FB H => 22 >= 2222 22222 ==> 222222222222 2222 22 222222 == 
24FB ; 

24FB ; UNTERPROGRAMME ZUR AUSWERTUNG VON AUSDRÜCKEN 

24FB ; DAS ERGEBNIS WIRD ALS LETZTER WERT AUF DEM CALC.-STACK 
24FB s ABGELEGT (NUMERISCH), BEI STRINGS 5 BYTES MIT 

Z24FB ; FOLGENDER BEDEUTUNG: DAS ERSTE IST NICHT DEFINIERT, 
24FB DAS ZWEITE + DRITTE SIND DIE STARTADRESSE DES STRING 
24FB ; UND DIE LETZTEN ZWEI GEBEN DIE LÄNGE AN. 

24FB ; BIT & VON FLAGS WIRD 1 BEI NUMERISCHEN UND O BEI 
24FB ; STRING-AUSDRÜUCKEN 

24FB } 

24FB DF AUSDRU RST GETAKT ; ERSTES ZEICHEN LADEN 

2Z4FC 065 00 LD B,O ; B MIT 0 ALS MERKER BESETZEN 
24FE C5 PUSH BC ;s UND ZWISCHENSPEICHERN 

24FF 4F LD C,A ; ZEICHEN ZUM SUCHEN NACH C 
2500 21 96 25 LD HL,$259 ; BASISADRESSE DER FUNKTIONS- 
2503 ; TABELLE 

2503 CD DE Ii6 CALL $16DE ; IN DER TABELLE SUCHEN 

2506 79 LD A,cC ; ZEICHEN NACH A ZURÜCK 

2507 D2 84 26 JP NC,$2684 ; ZEICHEN NICHT GEFUNDEN 

250A 0b 00 LD B,oO ; B MIT OÖ BESETZEN UND IN 
250C 4E LD CE, (HL) ; C DEN OFFSET LADEN 

250D 09 ADD HL,BC ; ZU HL ADDIERT GIBT DIE 

250E E? JP (HL) ; EINSTIEGSADRESSE 

250F ; 

250F s SUBROUTINE ZUM UNTERSUCHEN AUF ANFÜHRUNGSSTRICH '"' 
250F ; 

250F CD 74 00 CALL #74 ; CHADD +1, NÄCHSTES ZEICHEN 
2512 03 INC BC ; ZÄHLER +1 

2513 FE OD CP $D ; CARRIAGE RETURN ? 

2515 CA BA IC JP Z,$1CBA ; JA: ERROR 

zu18 FE 22 23 in Eu ; GÄNSEFUSS ? 
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co 


28 


> 06 


77 


29 
BA 


[BC 


07 


EO 


18 
40 


60 


. .—.-— WE 


—— ME ee A a 


un: un —— en (Mr 


JR NZ,#250F ; NEIN 

CALL $74 s ECHADD +1, 2... 

2 Dt ; WENN NÄCHSTES ZEICHEN EBEN- 
RET s FALLS '"' 15T, ZEROFLAG SETZEN 


SUBROUTINE UNTERSUCHT, DB DIE BENOTIGTEN ZWEI 
KODRBINATEN FOLGEN 
RST GETNXT ;s CHADD +1, NÄCHSTES ZEICHEN 

Er 7 ; KLAMMER AUF ? 
JR NZ,$252D ; NEIN: ERROR 
DALL #1679 ; DIE BEIDEN WERTE IN DEN CALC.- 
; STACK EINLESEN 
; AKTUELLES ZEICHEN HOLEN 
; KLAMMER ZU ? 
; NEIN: ERROR 


RST GETAKT 
Bir RN 
JP NZ,#1C8A 


DIESE UNTERRQUTINE DIENT ZUM üBERPRÜFEN, OB GERADE 
NUR EINE SYNTAXPRÜFUNG STATTFINDET ODER DE EIN 
PROGRAMM AM LAUFEN IST (ZEROFLAG ZURÜCKGESETZT) 


BIT 7,(1Y+1) ; BIT 7 = O0 BEDEUTET SYNTAX- 
RET ; PRÜFUNG: ZERDFLAG GESETZT 


SUERDUTINE ZUM SUCHEN DES ZEICHENS AN DEN KOORDINATEN 
X,Y DURCH "SCREEN#’, NORMAL WERDEN NUR DIE IM 
ZEICHENSATZROM (AB $5DO0) ABSELEGETEN ZEICHEN GEFUNDEN: 
#20 BIS $#7F 


36 53 
O0 c 


CALL #2307 


LD HL, {CHARS) 


Y-KDOORDINATE NACH EB, X NACH C 
BASISADRESSE DES ZEICHEN- 


’ 

’ 
LD DE,$100 ; SATZES -256, DESHALB WIRD 
ADD HL,DE ; DIE ADDITION DURCHGEFÜHRT 
LD A,E ; X NACH A BRINGEN 
RRCA ; X MIT 32 MULTIPLIZIEREN, 
RRCA ; DAMIT DIE LOWBYTE-ADRESSE 
RRCA ; BESTIMMT WERDEN KANN 
AND $EO 
XDR B 
LD EsA ; ERGEBNIS NACH E 
LD A,C ; DIE HIGHBYTE-ADRESSE 
AND $1B : WIRD BESTIMMT UND 
XOR #>BILD ; (BIT 4 WIRD IMMER GESETZT) 
LD D,A ; NACH D GEBRACHT 
iD B,96 ; ES GIBT 96 ZEICHEN 
PUSH BC ; ZÄHLER RETTEN (B) 
PUSH DE ; BILDSCHIRMZEIGER UND ADRESSE 
PUSH HL ; DES ZEICHENSATZES EBENFALLS 
LD A,(DE) : ERSTE PUNKTREIHE DES ZEICHENS 
XOR {HL) ; MIT ERSTER PUNKTREIHE DES 

‚ ZEICHENSATZES VERGLEICHEN 
JR 2,$255A : ERSTE REIHE STIMMT 
INC A ZEICHEN REVERSE ? 


JR NZ,$2572 


NEIN 


3’ 
DEC A ‚ A WIEDER $FF FÜR REVERSE 
LD CyA ; C=0: NORMAL, $FF = REVERSE 
LD B,7 ; 7 ZEILEN DES ZEICHENS NOCH 
INC D ; VERGLEICHEN 


255E 
259F 
2560 
2561 
2562 
2564 
2366 
2567 
2568 
2369 
256E 
236C 
256C[ 
256F 
2970 
2571 
2373 
2573 
2574 
2577 
2578 
2979 
257A 
2576 
257D 
2580 
2580 
25380 
2580 
2383 
2584 
2585 
2585 
2387 
2588 
258A 
258B 
258C 
258D 
238F 
2591 
2392 
2593 
2596 
2595 
2396 
2596 
25397 
2598 
2599 
259A 
259B 
259C 
259D 
259E 
239F 
25A0 
25Al 


OF 
F7 


Bo 


dA 


08 


07 


EO 


028) 


00 


h) 


En 


INC HL 

LD A,(BE) 
XOR (HL) 
or C 

IR NZ,$2573 
DINZ $255D 
POP EC 

POP BE 

POF BC 

LD A,$Bn 
Sup B 


LD BL,1 
RST $30 
LD (DE),A 
JR $257D 


POF HL 
LD DE,B 
ADD HL,DE 
POP DE 

POP BC 
DINZ $254F 
LD C,B 

IP $2AB2 


CALL $2307 
LD A,C 
RRCA 

RRCA 
RRCA 

LD C,A 
AND $EO 
Xor B 

LD L,A 

LD A,C 
AND 3 

XOR $58 
LD H,A 

LD A, (HL) 
IP $2D28 


BYT '"" $1C 
„BYT 't',$4F 
BYT '.’,$F2 
BYT '+',$1 


„BYT $AB,$56 


„BYT $AS,$57 


- EEE a EEE a 


UNTERFROGRAMM, UM DEN WERT VON ATTR 


— WE a Tan 


” 
; 
; 
[3 
; 
; 


NÄCHSTE REIHE 

VERGLEICHEN 

MIT REVERSEMERKER VERGLEICHEN 
FALSCHES ZEICHEN 

WEITER VERSLEICHEN 

ZEICHEN SEFUNDEN: ZEICHENSATZ- 
UND BILBESCHIRMZEIGER WEGWERFEN 
ZEICHENNUMMER IN B 

DA VON HINTEN GEZÄHLT WURDE, 
MUSS DIE NUMMER VON #Bü SUB- 
TRAHIERT WERDEN 

EIN SPEICHERPLATZ FÜR DAS 
ZEICHEN FREIMACHEN 

DAS ZEICHEN ABSPEICHERN 
ZEICHEN NOCH IM STACK ABLEGEN 


ZEICHENSATZZEIGER HOLEN 

B ADDIEREN, UM AUF DAS 
NÄCHSTE ZEICHEN ZU ZEIGEN 
EILDSCHIRMZEIGER UND 
ZEICHENZÄHLER WIEDER HOLEN 
IN DIE SUCHSCHLEIFE ZURÜCK 
KEIN ZEICHEN GEFUNDEN: LEER- 
STRING IM STACK SPEICHERN 
(X,Y) ZU BESTIMMEN 
Y-KDORDINATE NACH B, X NACH C 
ES WIRD DIE ATTRIEUTEADRESSE 
BESTIMMT (IN HL) 

ZEILE*32 


IN C MERKEN 


DIE SPALTE DAZUADDIEREN 
IN L SPEICHERN 
HIGHBYTEADRESSE EILDEN 


ATTRIEUTEBEREICH #5800-5EFF 
NACH H BRINGEN 

DAS ATTRIBUT LADEN 

UND IM STACK SFEICHERN 


OFFSETTABELLE FüR DIE ENTWICKLUNG VON AUSDRUCKEN 


#25B3 TEXTMODUS 

#25E8 KLAMMER AUF 

£2&BD FUNKT FÜR DEZIMAL 
#25AF ADDITIONEN 

*25F5 FN (FUNKTION) 


$25F8 RND 
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25A2 
25A5 
2544 
25A9 
25A6 
2547 
25AB 
2549 
25AA 
25AB 
25ACc 
25AD 
2SAE 
25AF 
25AF 
25AF 
25AF 
25AF 
25AF 
25AF 
25B0 
25B3 
25B3 
25B3 
25B3 
25B3 
25B4 
25B5 
25B& 
25B?9 
2SBC 
25BE 
25C1 
2563 
2505 
25C8 
2569 
2569 
2569 
2569 
25CA 
25CB 
25CC 
25CD 
2SCE 
25CF 
25D1 
25D3 
25D4 
25D5 
25D7 
25D? 
25DA 
25DB 
25DE 
25E0 
25E0 
2S5E2 
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E7 
C3 


FF 24 


22 
F8 


22 
F2 


SB SC 


B& 


7E 
B2 2A 


WE TEE a WE [an 


Re ae ae 


.BYT $A7,$84 
„BYT $A6,$8F 
‚BYT $04,$E6 
„BYT $AA,$BF 
‚BYT $AB,$C7 
„BYT $A9,$CE 


.BYT $00 


$2627 PI 


$2634 INKEY$ 


$26BD BIN 


$2668 SCREEN# 


#2672 ATTR 


$267B POINT 


ES FOLGEN DIE EINZELNEN UNTERPROGRAMME, DIE MIT HILFE 
DER OFFSETTABELLE AUFGERUFEN WERDEN 


PLUSZEICHEN 


RST GETNKT 
JP $24FF 


CHADD +1, NÄCHSTES ZEICHEN 
SPRUNG IN DIE HAUPTROUTINE 


TEXTMODUS: STRINGS, EINFACHE UND MEHRFACHE, DIE MIT 
""" EINGESCHLOSSEN SIND, BEARBEITEN 


RST BETAKT 
INC HL 

PUSH HL 

LD BC,O 
CALL $250F 
JR NZ,$25D9 
CALL $250F 
JR 2,$25BE 
CALL $2530 
JR 7,$25D9 
RST $30 


POP HL 
PUSH DE 

LD A,(HL) 
INC HL 

LD (DEI,A 
INC DE 

GP | 

JR NZ,$25CB 
LD A,(HL) 


IR 2,$25CB 

DEC BC 

POP DE 

LD HL,FLAGS 
RES &, (HL) 


BIT 7,CHL) 
CALL NZ,$2AB2 


a NEE a EEE a NEE a TEE a EEE u WE u BE u EEE a EEE a EEE a . m: an "WE ur TA a EEE a 


AKTUELLES ZEICHEN LADEN 

ZEIGT JETZT AUF STRINSANFANG 
ZWISCHENSPEICHERN 

STRINGLÄNGE = 0 SETZEN 

ZWEITEN GÄNSEFUSS SUCHEN 
KEINEN GEFUNDEN 

SONST 3., 5. ETC. SUCHEN 
WEITERSUCHEN 

BEI SYNTAXPRÜFUNG MUSS 

BIT & VON FLAGS GESETZT WERDEN 
SONST SPEICHERPLATZ IM WORK- 
SPACE FüR DEN STRING MIT AB- 
SCHLIESSENDEN ANFÜHRUNGSSSTRICH 
BESORGEN 

ZEIGER AUF STRINGANFANG HOLEN 
ZEIGER AUF FREIEN PLATZ RETTEN 
ERSTES STRINGZEICHEN LADEN 
ZEIGER +1 

ZEICHEN ABSPEICHERN 
WORKSPALEZEIGER #1 

WAR ES GÄNSEFUSS ? 

NEIN: WEITER UMSPEICHERN 

FOLGT NOCH EIN GÄNSEFUSS ? 
(ZEIGER +1, EIN GÄNSEFUSS 

WIRD UNTERDRÜCKT) 

JA: WEITERKOFIEREN 
TATSÄCHLICHE STRINGLÄNGE 
STRINGANFANG ZURÜCK IN DE 

HIER IMMER EINSTIEG, WENN BIT& 
VON FLAGS FüR STRINGS GESETZT 
WERDEN MUSS 

WÄHREND EINES PROGRAMMLAUF 
WIRD DER STRING GESTACKT 


C3 


12 


30 
04 


27 


756 SC 
2D 


2D 


3 76 SC 


23 


-—.— | a8 


an un WE Mr 


JP #2712 


RST GETNXT 
CALL $24FB 
BP *yr 

IP NZ,$1CBA 
RST GBETNXT 
JP $2712 


JP $27ED 


EINSTIEG BEI RND 


CALL $2530 
JR 2,$2625 
LD BC,{SEED) 
CALL $2D2B 
RST CALRUF 
.BYT $Ai 
„BYT $OF 
‚BYT $34 
„BYT $37,$16 


.BYT 
«BYT 
‚BYT 


+04 
$34 


„BYT 
„BYT 
„BYT 
„BYT 
„BYT 
„BYT $38 
CALL $2DA2 
LD {SEED),BE 
LD A,(HL) 
AND A 

JR 1,$2625 
SUB $10 

LD (HLI,A 

JR $2630 


$32 
02 
$Al 
+03 
+31 


CALL $2530 
JR 2,*2630 
RST CALRUF 
‚BYT $A3 
.BYT $38 
INC (HL) 


RST SETNXT 


..: EEE 


—— EEE a 


} 


3 


ZEILE WEITER UNTERSUCHEN 


EINSTIEG BEI KLAMMER AUF 


CHADD +1, NÄCHSTES ZEICHEN 
UNTERSUCHUNSSROUTINE AUFRUFEN 
EINE KLAMMER ALS AESCHLUSS ? 
NEIN: ERROR 

SONST NÄCHSTES ZEICHEN UND 
WEITER UNTERSUCHEN 


SPRUNG FüR 'FN’ 


BEI SYNTAXPRÜFUNG WIRD 

KEINE ZUFALLSZAHL BERECHNET 
AKTUELLER WERT VON SEED 

AUF DEM CALC,-STACK SPEICHERN 
CALCULATORAUFRUF 

EINE 1 SPEICHERN 

DIESE ZU SEED ADDIEREN 

ZAHL SPEICHERN: HIER 75 


(SEED+i) * 75 
ZAHL SPEICHERN: 


$90,$41,$00,$00,$80 


(SEED+1)#75/65537 DURCHFÜHREN 
LÖSCHEN: NUR DER REST BLEIBT 
EINE 1 STACKEN 

REST-1 BILDEN 

ERGEBNIS DUPLIZIEREN 

ENDE 

DEN LETZTEN WERT ALS NEUEN 
SEED-WERT BENUTZEN 

EXPONENT ’LETZTER WERT’ LADEN 
SPRUNG, WENN EXFONENT 

NULL IST 

SONST EXPONENT REDUZIEREN: 
ENTSPRICHT DIVISION MIT 85535 


DIE ZAHL PI ALS LETZTEN WERT AUF DEN CALC,-STACK 
BRINGEN 


FALLS SYNTAXPRÜFUNG, 
WEITERPRÜFEN 

SONST CALCULATOR AUFRUFEN 
PI/2 AUF DEN STACK SPEICHERN 
ENDE 

EXPDNENT +1 = 2#({PI/2) 


NÄCHSTES ZEICHEN EINLESEN 
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2631 
2634 
2634 
2634 
2634 
2637 
2538 
263A 
263D 
2640 
2642 
2644 
2546 
2549 
264B 
2640 
2600 
2632 
2692 
265353 
2594 
2657 
2658 
Z&5B 
2&5C 
2&5D 
2&5E 
2660 
2682 
2665 
2648 
2568 
2558 
2668 
26&B 
2&56E 
Z&ö&F 
2672 
2672 
2672 
2672 
2575 
2578 
2679 
267B 
2&7E 
2678 
267B 
2&7E 
2681 
2682 
2684 
2584 
24684 
2684 
2587 
2589 
Z&BB 
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01 


26 


03 


00 


-._ 08 


JP £26C3 
EINSFRUNG BEI INKEY# 


LD BC,$105A 
RST BETNXT 
EP '# 

IP 17,$270D 
LD HL,FLAGS 
RES &,{HL) 
BIT 7,CHL) 
JR 2,$2665 
CALL $28E 
LD 6,0 

JR NZ,$2660 
CALL $31E 
IR NC,$2660 


DEC D 

LD E,A 
CALL $333 
PUSH AF 
LD BL,1 
RST #30 
POP AF 

LD {DE),A 
LD C,1 

LD B,0 
CALL $2AB2 
JP $2712 


EINSTIEG BEI SCREEN$ 


CALL $2522 
CALL NZ,#2555 
RST GETNXT 

JF #25DB 


EINSTIEG BEI ATTR 


CALL $2522 
CALL NZ,#2580 
RST GETNÄT 

JR #25C03 


EINSTIEG BEI POINT 


CALL #2522 
CALL NZ,#22CB 
RST GETNXT 

JR #25C3 


EEE EEE u EEE a EEE a TE ae EEE u EEE a TEE u TEE a NEE u 


-——-— Eu 


; 
; 
3 
; 


UND WEITER UNTERSUCHEN 


FRIORITAÄT $10, LESECODE $5A 
NÄCHSTES ZEICHEN LADEN UND 
AUF '#" PRÜFEN 

JA: NUMERISCHES ARGUMENT 
SONST STRINGFLAG 

SETZEN 

BEI SYNTAXPRUFUNG 

SPRUNG 

SONST ZEICHENEDDE IN DE HOLEN 
LEERSTRING ANMERKEN 

WENN MEHRERE TASTEN GEDRÜCKT 
TASTENKODE TESTEN 

LEERSTRING STACKEN, WENN KEIN 
BRAUCHBARES ZEICHEN 

D AUF $FF SETZEN 

TASTENKODE NACH E BRINGEN, 
UM DIESEN ZU DEKODIEREN 
ASCII-ZEICHEN RETTEN 

EINEN SPEICHERPLATZ 

BESORGEN 

ASCII-ZEICHEN ZURÜCKHOLEN 
UND ABSPEICHERN 

STRINGLÄNGE 

AUF i SETZEN 

STRING AUF DEM STACK ABLEGEN 
ZUR WEITEREN UNTERSUCHUNG 


AUF 2 KOORDINATEN PRÜFEN 
AUFRUF NUR IM PROGRAMM 

ECHADD +1, NÄCHSTES ZEICHEN UND 
WEITER UNTERSUCHEN 


AUF 2 KOORDINATEN PRÜFEN 
AUFRUF NUR IM FROGRAMM 
EHADD +1, NÄCHSTES ZEICHEN 
NUMERISCH SETZEN 


AUF 2 KOORDINATEN PRÜFEN 
AUFRUF NUR IM PROGRAMM 
ECHADD +1, NÄCHSTES ZEICHEN 
NUMERISCH SETZEN 


EIN ZEICHEN AUF ALFHANUMERISCH PRÜFEN 


CALL $2CB8 
IR NE,$24DF 
cp 'A' 

JR NL,$2609 


-— At ae ae 


ALFHANUMERISCH ? 

NEIN 

IST ES EIN BUCHSTABE ? 
JA 


CB 


14 


00 


sc 


OO 


+ 


oo 


Sc 


01 


F& 


— eb as 


. |  u 


u EEE m 


ROUTINE ZUM BEARBEITEN VON DEZIMALZAHLEN (AUCH 'BIN’) 


CALL $2530 
JR NZ,#24B5 


5 


SYNTAXFRÜFUNG ? 
NEIN 


BEI DER EINGABE EINER ZEILE {SYNTAXPRÜFUNG) WIRD EINE 
ZAHL IN EINE FLOATINGFOINTZAHL UMGEWANDELT UND IN DIE 


BASICZEILE KOPIERT 


CALL $2C98 

RST GETAKT 

LD BO,6 

CALL $1455 

INC HL 

LD (HL) ,$E 

INC HL 

EX DE,HL 

LD HL,{STKEND) 
iDE6,5 

AND A 

SEC HL,BC 

LB {STKEND} „HL 
LDIR 

EX DE,HL 

DEE HL 

CALL #77 

IR $2663 


RST GETAKT 
INC HL 

LD A,(HL) 

CP $E 

JR NZ,$26B& 
INC HL 

CALL $33B4 

LD (CHADD) ,HL 


SET 5, {IY+i) 


JR #26DD 


en EEE u HE a A a A a TE a A u YO an 


; 
DER FOLGENDE TEIL WIRD 


—-— | EEE 


IN FLDATINGPOINTZAHL WANDELN 
HL ZEIGT AUF LETZTES DIGTIT +1 
DIE ZAHL BENSTIET 4 SPEICHER- 
FLATZE IN DER BASICZEILE 
ZEIGER AUF ERSTEN FREIEN FLATZ 
ENDE FüR "ZAHLENMERKER 
NACHSTER FLATZ UND ZUM 
KOPIEREN NACH DE ERINGEN 
STACKENDE ALT LADEN 

3 BYTES MÜSSEN KDOFIERT WERDEN 
CARRY LSSCHEN 

STACKENBE NEU BERECHNEN 

UND SPEICHERN 

DIE FLOATINGPDINTZAHL EDOPIEREN 
ZEILENFDINTER NACH HL, AUF DAS 
LETZTE EINGEFÜSTE BYTE SETZEN 
UND CHADD NEU SETZEN 

NUMERSICH ANMERKEN 


IM PROGRAMMLAUF BEARBEITET 


HL ZEIGT AUF AKTUELLES ZEICHEN 
HL +1, UM DAS NÄCHSTE 

ZEICHEN ZU LADEN 

SUCHEN, BIS DER "ZAHLEN- 
MERKER’ GEFUNDEN WIRD 

ZEIGT AUF ERSTES BYTE BER ZAHL 
FP-ZAHL IN DEN CALC.-STACK 
KOFIEREN UND CHADD NEU SETZEN 


FÜR NUMERISCHES ERGEBNIS MUSS 
BIT & VON FLAGS GESETZT WERDEN 
UND WEITER UNTERSUCHEN 


SUBROUTINE SUCHT VARIABLE (NUMERISCH, STRING) 

IM VARIABLEN- ODER PROGRAMMBEREICH. DIE VARIABLE 
DDER DIE FARAMETER BEI STRINGSYAR. WERDEN IN DEN 
CALALULATORSTACK GEBRACHT 


CALL #282 
IP C,$1C2E 
CALL 2,$2996 


LD A, (FLAGS) 
CP $C0 

JR C,*26DD 
INC HL 


Eee 


.n. 0“. 


VARIAELENNAMEN SUCHEN 

NICHT GEFUNDEN: ERROR 
STRINGPARAMETER IN DEN STACK 
BRINGEN ODER DIE ANFANGSADRESSE 
EINER NUMER. VARIABLEN HOLEN 


AUF NUMERISCH TESTEN 
NICHT DER FALL 
SONST MUSS DIE VARIABLE IN 
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2&DA CD BA 355 CALL $33B4 ;s DEN CALC.-STACK KOPIERT WERDEN 
26DD 18 33 JR $2712 ; WEITER UNTERSUCHEN 

26DF : 

26DF ; IM FOLGENDEN WERDEN VERSCHIEDENE DPERATOREN GEPRÜFT 
2&DF : 

26DF 01 DB 09 LD BC,$9DB ;s PRIORITÄT 9, KODE $DB 

26E2 FE 2D ER)": ; MINUSZEICHEN ? 

26E4 28 27 JR Z,$270D ; JA 

26E& ; 

26E& 01 18 10 LD BC,$1018 ; PRIORITÄT $10, KODE #18 

26E97 FE.ARE CP $AE ; IST ES VAL$ ? 

26EB 28 20 JR Z,$270D s JA 

26ED D& AF SUB $AF s KODES VON $AF (CODE) BIS $C3 
26EF s (NOT) UNTERSUCHEN 

26EF DA BA IC | JP C,#1CBA ; NEIN: ERROR 

26F2 01 FO 04 LD BC,$4F0 s PRIORITÄT 4, KODE $FO 

26F5 FE 14 CP $14 ı 18T ES NOT ? 

26F7 28 14 JR Z,$270D ; JA 

26F92 D2 8A IC JP NC,#1CBA ;s NICHT IM BEREICH: ERROR 

26FC s 

264FC ;s TOKENS JETZT IN OPERATIONSKODES KWANDELN 

2&FC - 

26FC 06 10 LD B,$10 ;s PRIORITÄT $10 

26FE CA Dt ADD DC ; BEREICH DC BIS $EF 

2700 4F LD C,A ; KOPIE NACH C 

2701 FE DF CP $£DF ; CODE, VAL UND LEN AUSBLENDEN 
2703 30 02 JR NC,#2707 

2705 CB Bi RES d,C ; FüR DIESE BIT & ZU 0 SETZEN 
2707 FE ER EP $EE s STR$ UND CHR$ ? 

2709 38 02 JR C,#270D ; NEIN 

270B CB B? RES 7,C ı JA: BIT 7 AUF 0 SETZEN 

270D - 

270D ; DER PRIORITÄTSKODE IN B UND DER OPERATIONSKODE IN C 
270D ; WERDEN AUF DEM STACK ABGELEGT, BEVOR DER NÄCHSTE TEIL 
270D ; DES AUSDRUCKS UNTERSUCHT WIRD 

270D s 

270D C5 PUSH BC ı DIE BEIDEN KODES SPEICHERN 
Z2/UE E7 RST GETNXT s CHADD +1, NÄCHSTES ZEICHEN 
270F C3 FF 24 JP £24FF ; HOLEN UND WEITERSUCHEN 

2712 ; 

2712 s ES WIRD JETZT DER WEITERE AUSDRUCK UNTERSUCHT AUF 
2712 ; KLAMMER, ENDE ETC, 

2712 ; 

2712 DF RST GETAKT ;s AKTUELLES ZEICHEN LADEN UND 
2713 FE 28 ER- * 6° ; AUF KLAMMER VERGLEICHEN 

2719 20 DE JR NZ,$2723 ; KEINE KLAMMER 

2717 FDECB 01 76 BIT 4, (IY+1) ; FLAGS TESTEN AUF NUMERISCH 
271B 20 17 JR NZ,$2734 ; JA: AUSDRUCK IN KLAMMERN 
271D CD 52 2A CALL $2A52 ; PARAMETER DES ’LETZTEN WERTS’ 
2720 ; VERÄNDERN 

2720 E7 RST GETNXT ; DAS NÄCHSTE ZEICHEN 

2721 18 FO JR $2713 ; LADEN UND UNTERSUCHEN 

2723 ; 

2723 ; ROUTINE, UM FÜR DIE DIVERSEN DPERATOREN (+,*%,NDT ETC.) 
2723 ; DIE PRIORITÄTEN UND DEN DPERATIDONSKODE ZU SUCHEN 
2723 ; 

27253 065 00 LD B,oO ; REGISTER EC MIT DEM ORISINAL- 
2723 #F LD C,A ; KODE ZUM SUCHEN LADEN 
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2726 
2729 
272C 
272E 
ZIAF 
2732 
2733 
2734 
2734 
27385 
2735 
2736 
2737 
2739 
273A 
273D 
273E 
2/3E£ 
2741 
2742 
2744 
2748 
2748 
27AA 
274C 
274D 
2750 
2752 
2I0S 
2753 
2755 
21284 
2758 
27593 
275B 
275B 
275B 
275B 
275B 
2736 
275F 
2761 
2764 
2764 
27654 
2764 
2764 
2765 
2768 
276&A 
276C 
276E 
2770 
2771 
2773 
2773 
2773 
2773 


29 


RE 
40 
BA 


27 
16 


00 


sc 


ic 


Sc 


ae Tai 


a a Na Ta 


LD HL,$2795 
CALL $16DE 
JR NC,$2734 
LD C, (HL) 
LD HL,$26ED 
ADD HL,BC 
LD B, (HL) 


POP DE 


LD A,D 
CP B 

JR C,$2773 
AND A 

JP 2,6ETAKT 
PUSH BE 


LD HL,FLAGS 
ID A,E 

CP $ED 

JR NZ,$274C 
BIT 4,{HL) 
JR NZ,$274C 
LD E,$99 
PUSH DE 
CALL $2530 
JR 2,$2758 
LD A,E 

AND $3F 

LD B,A 

RST CALRUF 
‚EYT $3B 
„BYT $38 

JR +2764 


LD A,E 

XOR (IY+1) 
AND #40 

JP NZ,#1C8A 


POP DE 
LB HL,FLAGS 
SET &, HL) 
BIT 75,E 

IR NZ,$2770 
RES 6, (HL) 
POP BC 

JR $2734 


rn BE a EEE ae 8 


—_ a u a Er 


._ 0 EEE En EEE NE 


3 
} 
[3 
s 
; 


DIE ART DER VORHERIGEN 
IN FLASS ANGEMERKT WERDEN 


; 
; 
[3 
; 
} 
Li 
5 
. 
; 
; 
} 


ADRESSE DER DPERATORENTABELLE 
UND IN DER TABELLE NACHSEHEN 
NICHTS GEFUNDEN 

DFERATIONSKODE LADEN 
PRIDRITÄTENTABELLE-$C3 
DPERATIONSKODE ADBIEREN, 

DAMIT DIE PRIORITÄT IN B LADEN 


VORHERGEHENDE OPERATION UND 
FRIDORITAÄT VOM STACK HOLEN 
DIESE PRIORITÄT MIT DER 
JETZIGEN VERGLEICHEN 

JETZIGE IST HÖHER 

SIND BEIDE PRIORITAÄTEN DO ? 

JA 

AKTUELLEN WERTE AUF DEN STACK 


VORHERIGER DPERATIDNSKODE 
= 'USR’ ? 

NEIN 

"USR’ MIT ZAHLEN ? 

JA 

LETZTEN DOPERATIONSKOBE NEU 
VORHERIGE WERTE AUF STACK 
WÄHREND SYNTAXFRÜFUNS 
NICHTS WEITER MACHEN 
DPERATIONSKODE NACH A UND 
BITS 4+7 AUSBLENDEN: 

= CALCULATORDFFSET 
CALCEULATOR AUFRUFEN 

DIESE AKTUELLE OPERATION 
DURCHFÜHREN UND ENDE 


DIE ART DER LETZTEN OPERATION MIT DER ZU 
UNTERSUCHENDEN VERGLEICHEN 


VORHERIGER OPERATIONSKODE 
MIT FLAGS EXDR 

NUR BIT & BETRACHTEN 

MUSS © SEIN, SONST ERROR 


DPERATION MUSS NOCH 


VORHERIGER OPERATIONSKODE 
FLASS MIT DEFAULT 

NUMERISCH VORBESETZEN 
VORHERIGER WERT NUMERISCH ? 

JA 

FÜR STRINGS FLAG ZURÜCKSETZEN 
JETZIGE DPERATIDNSKODES IN BC 
BRINGEN UND WEITER UNTERSUCHEN 


FALLS DIE JETZIGE PRIORITÄT HöHER ALS DIE VORHERIGE 
IST, WERDEN BEIDE DPERATIONEN AUF DEM STACK GESPEI- 
CHERT., WENN DIE JETZIGE DPERATION EINE STRINGBE- 
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2773 BEARBEITUNNG BEDEUTET, MUSS DIES NOCH IM 


y 
2173 : DPERATIONSCODE ANGEMERKT WERDEN 
2773 ; 
2113 Ba PUSH DE ; VORHERIGE DPERATIDN AUF STACK 
2714 79 LD A,C ; JETZIGER OPERATIDNSKDDE 
2779 FD GR RL 76 BIT, tIYHT) : FLAGS: NUMERISCH ? 
277 20 15 JR NZ,#2790 ; JA 
2728 E& 3F AND $3F  STRINGS: BITS 6+7 WEG 
277D cC& 08 ADD 8 ; UND 8 ADDIEREN 
227F 4F LD £,8 s ERGEBNIS NACH C ZURÜCK 
2780 FE 10 EP #10 ; DPERATION = 'AND’ ? 
2782 20 04 JR NZ,#2788 ı NEIN 
2784 CB Fi BET 6,6 ; JAs NUMERSICH ANMERKEN 
2786 18 08 JR 2790 
2788 j 
2788 38B D? JR G,$2761 DIE BPERATIENEN "7 ,8,./4°,0R° 
278A ; SIND BEI STRINGS UNZULÄSSIG 
27Bn- FE 17 Er #17 ; DFERATION = '+' ? 
278C 28 02 JR 2,3279 ; JA 
278E CB F?3 SET 7,6 : DIE ANDEREN OPERATIONEN ERGEBEN 
279% ; EIN NUMERISCHES RESULTAT 
270 59 PUSH EC ; JETZIGEN WERTE AUF DEN STACK 
2791 E RST GETNXT ; NÄCHSTES ZEICHEN LADEN UND 
2792 G3 FF 24 JP £24FF ; ZUR WEITEREN UNTERSUCHUNG 
2795 ; 
2795 ; TABELLE ZUM UMSETZEN DER DFERATOREN IN OPERATIONSKODES 
2795 - 
2275 2 BY 7a „ER ; ADDITION 
2796 EF 
219 2 sBYT ei 308 ;s SUBTRAKTION 
27998 63 
2799 2A «BIT. 7 „369 ; MULTIPLIKATION 
279 64 
2798 ZF Bit Si ; DIVISION 
27 5 
2290 S5E „BYT_797 58565 ; EXPFONENT (HOCH) 
279E 5b 
279F 30 BYı "= „CE ; ZUWEISUNG (SLEICH) 
27R0 CE 
2zhil SE en > ; GRÖSSER 
27u2 66 
2183 SC „BYT .*%7 #60 ; KLEINER 
2784 CD 
2/RN3 6/ «BYI 367,969 ; KLEINER GLEICH (<=) 
27a 597 
2747 cC8 .BYT $C8,$CA ; GRÖSSER GLEICH (>=) 
2768 CA 
279 cC9 .BYT $C9,$*CB ;s UNGLEICH (X 
27AA CB 
27nB E65 BYT $63,%C7 ; DDER (OR) 
27AC 67 
27AD C6 BYT 36,308 ; UND (AND) 
27TAE CB 
27AF 00 ‚BYT $00 
27E0O ; 
27Bö ; TABELLE DER ZUGSEHÖRIGEN PRIDRITÄTEN 
27E0 - 
27BO 06 .BYT $06 ce“ 
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27El 
27B2 
27B3 
27B4 
27B5 
27Bö 
27E7 
27B8 
2769 
27EA 
27EB 
27EE 
27ED 
27ED 
27/ED 
27ED 
27ED 
27C0 
2702 
2763 
27C& 
27C9 
27CA 
27ct 
27CD 
2ICF 
2709 
2702 
27D4 
27D5 
2707 
2709 
27DE 
27DE 
27DBE 
27DD 
a7DF 
27El 
27E2 
27E4 
27E4 
27E4 
27E6& 
ZIEN 
2TER 
27ED 
2ZTEF 
27F0 
27F2 
27F4 
27F7 
27F7 
27F7 
27F7 
27F8 
27FA 
27FB 
27FC 


DE 
G8 
DA 
02 
23 
05 
55 
05 
05 
05 
05 


06 


DF 


24 


27 


“ 
A 
. 


‚EYT #08 
.EYT 08 
«BYT £0A 
‚EYT $02 
‚EYT 803 
.BYT 805 
‚EYT 805 
.„EBYT $05 
‚BYT 805 
.BYT 05 
.BYT 805 
.BYT #05 


CALL $2530 

IR NZ,$27F7 
RST BETNXT 

CALL $2CED 

IP NE,$ICBA 
RST GETNXT 

CP '$' 

PUSH AF 

IR NZ,#27D0 
RST GETNXT 

ep "gi 

JR NZ,$27E& 
RST BETNXT 

EB :j° 

JR 1,$27E9 

CALL $24FB 


RST GETAKT 
Ep *,® 

IR NZ,#27E4 
RST GETNXT 
IR $27D9 


cp’) 
IP NZ,F1C8A 
RST BETNXT 
LB HL,FLAGS 
RES 6, (HL) 
POP AF 

JR 2,$27F4 
SET A, (HL) 
JP $2712 


RST BETNKT 
AND $DF 

LD B,A 

RST BETNXT 
SUB ’$' 


(DEF FN) 


au NEE ae TE 


SUBROUTINE ZUR ENTWICKLUNG VON BENUTZERDEFINIERTEN 
FUNKTIDNEN 


IM PROSRAMMLAUF 

DEN SPRUNG AUSFÜHREN 

ERSTES ZEICHEN DES NAMEN HOLEN 
IST ES EIN BUCHSTABE ? 

NEIN: ERROR 

NÄCHSTES ZEICHEN 

AUF '#’ PRÜFEN 

ZEROFLAS ZWISCHENSFEICHERN 

ES IST KEIN '?’-ZEICHEN 

DAS FOLGENDE ZEICHEN 

MISS EINE KLAMMER SEIN 

SONST ERROR 

NACHSTES ZEICHEN ELAMMER ZU ? 


JA: KEIN ARGUMENT 

SONST DIE SUBRQOUTINE ZUR AUS- 
WERTUNG VON AUSDRUCKEN ZUR 
SYNTAXFRÜFLUNG AUFRUFEN 

IST DAS ZEICHEN NACH DEM 
AUSDRUCK EIN KOMMA ? 

NEIN: KEINE WEITEREN ARGUMENTE 
SDNST NÄCHSTES ZEICHEN LADEN 
UND DIE FUNKTION WEITER UNTER- 
SUCHEN 


IST AKTUELLES ZEICHEN ELAMMER? 
NEIN: ERROR 

CHADD +1 

IN FLAGS EINE STRINGFUNKTIDN 
SETZEN 

ZERDFLASB VON OBEN ZURUCKHOLEN 
SPRUNG BEI STRINGFUNKTIDON 
SONST NUMERISCH ANMERKEN 

DIE ZEILE WEITER UNTERSUCHEN 


EINSTIEG FüR FUNKTIONEN IM PROSRAMMLAUF 


ERSTEN BUCHSTABEN DES NAMEN 
LADEN, ZUM SROSSBUCHSTABEN 
MACHEN UND NACH E KOPIEREN 
NÄCHSTES ZEICHEN HOLEN UND 
AUF STRING UNTERSUCHEN 
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01 


86 


02 


sc 


00 


iD 


28 


28 


19 


2B 


aD 
28 


28 


Sc 


5 
} 


a. 88 um 


[DER 
JR N2,$2802 
RST BETNXT 
„END 


‚LIB SPECZ2800-5 
SINCLAIR ZX SPECTRUM 


RST GETNXT 
PUSH HL 


LD HL, (PROB) 


DEC HL 

LD DE,$CE 
PUSH BC 
CALL $1D8& 
POP BE 

JR NC,$2814 


RST ERRAUS 
‚BYT $18 


PUSH HL 


CALL $28AB 
AND $DF 

CP B 

JR NZ,$2825 
CALL $28AB 
suB '$° 
CPL 

JR 2,$2831 
POP HL 

DEC HL 

LD DE,$200 
PUSH BC 
CALL $198B 
POP BC 

JR $2808 


AND A 


CALL Z,$2BAB 


POP DE 
POP DE 


LD (CHADD),DE 


CALL $28AB 
PUSH HL 
Br‘ 

JR 2,$2885 
INC HL 

LD A, (HL) 
CP $E 

LD D,$40 
JR 7,$2852 
DEC HL 
CALL $28AB 
INC HL 

LD D,0 


oo (ME m 


GE = Di: STRING, SONST NUMERISCH 
BEI NUMERISCHER FUNKTION 
KLAMMER AUF ÜBERGEHEN 


TEIL 2800 


mu 1 BE u NEE a NEE u TEE un YA Ku NEE a EEE a 


-—-— BE u EEE u TEE un EEE u TEE a TEE a YA a NEE a N 


1. ZEICHEN 1. ARGUMENT LADEN 
POINTER ZWISCHENSPEICHERN 
PROGRAMMANFANG LADEN 

-1 FüR DIE SUCHROUTINE 

"DEF FN’ WIRD GESUCHT 

NAME UND FUNKTIONSART RETTEN 
PROGRAMM ABSUCHEN 

NAME UND FUNKTIONSART ZURÜCK 
SPRUNG BEI GBEFUNDENEM 'DEF FN’ 


SDNST FEHLERMELDUNG: 
"FN KITHOUT DEF’ 


ZEIGER AUF "DEF FN’ FüR EVTL. 
WEITERE SUCHE RETTEN 

NAME DER FUNKTION HOLEN 

NUR GROSSBUCHSTABEN 

STIMMT DER FUNKTIONSNAME ? 
NEIN, WEITERSUCHEN 

DAS NÄCHSTE ZEICHEN LADEN 
UND AUF STRING FRÜFEN 

(C ENTHÄLT 0 FÜR STRING) 

DIE FUNKTIONSART STIMMT 
ZEIGER AUF 'DEF FN’ ZURÜCK 

-1 FOR DIE SUCHE 

DE FüR DIE SUCHROUTINE MIT 2 
LADEN, BC RETTEN, UND DAS ENDE 
DES 'DEF FN’-BEFEHLS SUCHEN 
NAME UND FUNKTIONSART ZURÜCK 
IM PROGRAMM WEITERSUCHEN 


DER RICHTIGE DEF FN-BEFEHL WURDE GEFUNDEN. 


BEI STRINGS (HL ZEIGT AUF $) 
DIE KLAMMER AUF SUCHEN 

ZEIGER AUF 'DEF FN’' WEGWERFEN 
ZEIGER AUF DAS ERSTE ARGUMENT 
DER FUNKTION NACH CHADD LADEN 
KLAMMER AUF ÜBERSPRINGEN 
ZEIGER DARAUF RETTEN 

"FN’ HAT KEIN ARGUMENT, WENN 
NÄCHSTES ZEICHEN =") ': SPRUNG 
ZEIGT AUF DAS NÄCHSTE ZEICHEN 
ZEICHEN LADEN UND AUF 
ZAHLENMERKER PRÜFEN 

BIT& FÜR NUMERISCH VORBESETZEN 
NUMERISCH: SPRUNG 

HL ZEIGT WIEDER AUF KLAMMER 
DIESE ÜBERSPRINGEN 

AUF NÄCHSTES ZEICHEN SETZEN 
IN D STRING MERKEN 


0? 


aD 
OB 


OB 


FB 


SD 


üB 


24 


O1 


sc 
00 


Sc 


28 


sc 


Sc 


Sc 


24 


sc 


sc 


INC HL 

PUSH HL 

PUSH DE 

CALL $24FB 
POP AF 

XOR (IY+1) 

AND $40 

JR NZ,$288B 
POP HL 

EX DE,HL 

LD HL, (STKEND) 
LD BC,5 

SBC HL,BE 

LD (STKEND) ‚HL 
LDIR 


EX DE,HL 
DEC HL 
CALL $22AB 


ep’; 

JR 2,$2885 
PUSH HL 
RST GETAKT 
Ep °,® 


JR NZ,$288B 


RST GETNXT 
FOP HL 
CALL $28AB 
JR #2843 


PUSH HL 
RST GETAKT 
Be sy 

JR Z,*288D 


RST ERRAUS 
.BYT #19 


EX DE,HL 

LD (CHADD} „HL 

LD HL,({DEFADD) 
EX (SP) ,HL 

LD (DEFABD} ‚HL 


PUSH DE 

RST BETNXT 

RST BETNXT 
CALL $24FB 

POP HL 

LD (CHADD) „HL 
POP HL 

LD (DEFADD) ‚HL 
RST BETNXT 


TEE 


.—-— te EEE a EEE TE EN 


ZEIST AUF DAS 1. VON 5 BYTES 
ZEIGER ZWISCHENSPEICHERN 

ART DER FUNKTION RETTEN 
ARGUMENT AUSWERTEN 
FUNKTIDONSART WIEDER LADEN 
UND MIT FLAßS BIT 5 
VERGLEICHEN 

STIMMT NICHT: ERROR 

ZEIGER AUF 1. ZEICHEN 

NACH DE BRINGEN 

HL MIT STACKEND LADEN 
STACKEND UM 5 VERMINDERN 

(= 5 BYTES ENTFERNEN) 

UND DEN NEUEN WERT SPEICHERN 
ERGEBNIS HINTER 'DEF FN’ 
KOFIEREN 

HL AUF DAS LETZTE ZEICHEN 
DES ERGEBNISSES SETZEN 

HL MUSS AUF DAS ERSTE ZEICHEN 
DANACH ZEIGEN 

IST DIESES EINE KLAMMER ZU ? 
JA, KEINE ARGUMENTE MEHR 
SONST ZEIGER DARAUF RETTEN 
AKTUELLES ZEICHEN LESEN 

IST ES EIN KOMMA Für WEITERE 
ARGUMENTE ? 

NEIN, PARAMETER STIMMEN NICHT: 
ERROR 

CHADD #1 

ZEIGT KIEDER AUF DAS KOMMA 
DAS NÄCHSTE ARGUMENT SUCHEN 
{HL} UND BEARBEITEN 


ZEIGER AUF KLAMMER RETTEN 
NDCHMAL DAS AKTUELLE ZEICHEN 
UND AUF KLAMMER ZU VERSLEICHEN 
ALLES IN ORDNUNG 


WENN NICHT, FEHLERMELDUNG: 
"FARAMETER ERROR 


ZEIGER AUF ') 

IN HL BRINGEN 

UND CHADD SETZEN 

ALTER WERT VON DEFADD LADEN 
AUF DEM STACK ABLEGEN UND DIE 
ANFANGSADRESSE DER ARGUMENTE 
VOM STACK NACH DEFADD BRINGEN 
ZEIGER AUF °)” RETTEN 

CHADD +2, UM ') 

UND '=" ZU UBERSPRINGEN 

DIE FUNKTION ENTWICKELN 
ZEIGER AUF ')° ZURÜCK NACH 
CHADD BRINGEN 

DEN ALTEN WERT VON 

DEFADD WIEDER HOLEN 

CHADD +1 UND WEITER 
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29A8 
ZBAR 
ZBAB 
ZBAB 
2BAR 
28AB 
28AC 
2BAD 
2EAF 
28Bi1 
23B2 
23E2 
282 
2BB2 
28E2 
28B2 
ZBE& 
28B7 
28BA 
28BD 
zBBE 
28C0 
2801 
2862 
2865 
2865 
2867 
2869 
28CB 
28CD 
28CF 
28D2 
28D4 
28D4 
28D4 
2804 
28D7 
2809 
268DB 
28DC 
28DE 
28DE 
28DF 
'2BE? 
2BE3 
28E3 
2BE} 
2BE3 
2BE3 
28E3 
28E& 
28E7 
2BE9 
2BEC 
2BEF 
2BEF 
28FÖ 
28F3 
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12 


GR 


BD 


CE 


26 


O1 


sc 


B& 


BE AR am 


EEE 


= 
’ 


_;-— ME un TE 


JP $2712 


ROUTINE ZUM ÜBERSPRINGEN VON FUNKTIONSTEILEN 


IN DER BASICZEILE 


(ZEICHEN 


<+21) NUR MIT HL, DENN CHADD MUSS ERHALTEN BLEIBEN 


INC HL 
LDB A,cHL) ' 
ep." 
IR 2,£28AB 
RET 


SUBRDOUTINE ZUM SUCHEN VON 


ZEIGER +1 
KODE LADEN 
SPACE LIND STEUERZEICHEN 


WERDEN 


ÜBERSPRUNGEN 


VARIABLEN 


SUCHE ENTWEDER IM VARIABLENBEREICH DDER, 
FUNKTION 


IM ARGUMENTBEREICH DER 


SET &,tIY#l) - 
RST GETAKT ; 
CALL $2CBD ; 
JP NC,#1CRA ; 
PUSH HL - 
AND &1F ; 
LD £,A i 
RST GETNXT F 
FLUSH HL i 
EP? ; 
JR Z,$#28BEF - 
SET &,C ; 
EP-*$7 ; 
JR Z,#28DE ; 
BET Age ; 
CALL $2C88 
JR NC,#2BE} ; 


CALL $2C88 
JR NL,$2BEF ' 
RES 6,6 ; 
RST BETNXT ; 
IR £28D4 ’ 


RST GETNKT ; 
RES 6, (1Y#1) ; 


WENN DAS HIGHBYTE VON DEFADD NICHT NULL IST 


FLAGS: 


NUR BITS 4-0 NACH 


RES C 


DEFAULT = 


BRINGEN 


BEI 


"DEF FN’, 


NUMERISCH 
DAS AKTUELLE ZEICHEN LADEN 
UND AUF BUCHSTABE PRÜFEN 
ERROR, WENN KEIN BUCHSTABE 
ZEISER AUF BUCHSTABEN RETTEN 


DAS NÄCHSTE ZEICHEN LADEN 
UND DEN POINTER HIERAUF RETTEN 
ELAMMER AUF ? 


JA: 


ARRAY 
DEFAULT KURZER NAME 


IST ES EIN STRING 


JA 


NORMALE ZAHL MERKEN 


{-ARRAY) ? 


IST BAS ZEICHEN EIN BUCHSTABE? 


NEIN: 


KURZER NAME 


BUCHSTABE ? 


NEIN, ENDE GEFUNDEN 


; 
DAS LETZTE ZEICHEN EINES VARIABLENNAMENS SUCHEN 


UNTERSCHEIDUNGSBIT LANGER NAME 
NÄCHSTES ZEICHEN LADEN UND 
WEITERPRÜFEN 


CHADD 


+1, HINTER 


'g: 


SETZEN 


FüR STRINGS UND STRINGSARRAYS 
BIT& VON FLAGS RÜCKSETZEN 


(=DEF FN) 


UND WENN ZUR LAUFZEIT, DANN WIRD DIE SUCHE NACH 


DEN ARGUMENTEN VON 


LD A,(DEFADD+1) ; 


AND A ; 
IR Z,$2BEF 
CALL $2530 ; 
IP NZ,$2951 ; 
LD B,C ' 
CALL $2530 
JR NZ,$28FD 


"DEREN" 


DURCHGEFÜHRT 


DEFADD-HISGH 


AUF 0 
NICHT 


TESTEN 
DEF FN 


SYNTAXFRÜFUNG ? 
PROSRAMMLAUF 


NEIN, 


"ARTENBYTE 


SYNTAXFRÜFUNG 7 


NEIN 


NACH B KOPIEREN 


E0 
FF 


30 


BB 


CE 


F& 


Sc 


29 


19 


—— u Te 


.—.:aU u TEE me 


LD A,E ; 
AND $EO ; 
SET 7,A ; 
LD C5,A ; 
JR #2934 


VOM "ARTENBYTE’ DIE 
NAMENEITS WEGWERFEN 
SYNTAXFRÜFUNG ANMERKEN 
UND NACH EC KOPIEREN 


WÄHREND DES PROGRAMMLAUFS WIRD DIE SUCHE NACH DER 
VARIABLEN IM VARIABLENBEREICH DURCHGEFÜHRT 


LD HL, (VARS) 
LD A, (HL) 
AND $7F 

IR 2,$2972 


CP C 

JR N2,*292A 
RLA 

ADD A 

JP P,$293F 
JR 0,$293F 


‘ 
H 
; 
* 
; 
5 
” 
} 
; 
“ 
; 
H 
s 
} 
} 


VARIABLENPDINTER LADEN 

DIE VARIABLENNAMEN VERGLEICHEN 
NUR BITS Ö-& 

HIER AUSSFRUNG, FALLS ENDE- 
MARKIERUNG (#80) DES 
VARIABLENBEREICHS GEFUNDEN 
STIMMT DER NAME ? 

NEIN 

REG MIT 4 MULTIPLIZIEREN, UM 
DIE BITS 5 UND & ZU TESTEN 

(5) STRINGS UND ARRAYS 
EINFACHE UND FOR-NEXTVARIABLEN 


LANGE NAMEN GANZ UNTERSUCHEN 


POP DE ; 
PUSH DE ; 
PUSH HL ’ 
INC HL ; 
LD A,{DE) 
INC DE 

“ze ; 
JR 2,$2913 

OR $20 ; 
CP (HL) ; 
JR 2,$2912 ; 
OR +80 ; 
EP (HL) 
IR NZ,$2929 
LD A,{DE) ; 
CALL $2C88 ; 
JR NC,$293E ; 


ZEIGER AUF ZWEITES ZEICHEN 
NACH DE 

lEIGER AUF 1. ZEICHEN RETTEN 
JEDES ZEICHEN NACHEINANBER 
LADEN UND VERGLEICHEN 


LEERZEICHEN IGNORIEREN 


IN KLEINBUCHSTABEN WANDELN 


; VERGLEICHEN 


STIMMT 

LETZTER BUCHSTABE DES 

NAMENS ? 

NEIN: NÄCHSTE VARIABLE PRÜFEN 
DAS LETZTE ZEICHEN NOCH MAL 
UND AUF BUCHSTABEN FRÜFEN 
RICHTIGE YARIABLE GEFUNDEN 


WENN DIE NAMEN NICHT STIMMEN, MUSS DIE NÄCHSTE 
VARIABLE IM VARIABLENBEREICH GESUCHT WERDEN. 
HL IST DER ZEIGER DARAUF 


POP HL ; 
PUSH EC ; 
CALL $#19B8 ; 
EX DE,HL - 
FOF BC - 
JR $2900 - 
SET 7,B ; 


BEI SYNTAXFRÜFUNG HIER 


ZEIGER WIEDER HOLEN 

BC ZWISCHENSFEICHERN 

NÄCHSTE VARIABLE SUCHEN 

ZEIGER MUSSEN GETAUSCHT WERDEN 
BC WIEDER ZURUCKHOLEN 

ZUM VERGLEICH ZURÜCK 


ANMERKEN: VARIABLE NICHT 
GEFUNDEN 


HIN 
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2954 H POP DE ZEIGER AUF 2. ZEICHEN 


’ 
2935 DF RST GETAKT ; AKTUELLES ZEICHEN LADEN 
2936 FE 2 E) u ı KLAMMER AUF (FüR ARRAY) ? 
2938 2B 09 JR 2,2943 ı JA 
295A CB EB SET 5,B ; SONST KEIN ARRAY ANMERKEN 
2936 18 0D JR #294E 
293E 8 
293E ; DER RICHTIGE NAME IST GEFUNDEN 
293E - 
2933E Di POP DE ;ı BEI LANGEN NAMEN 1 ZEIGER MEHR 
293F ; KEGWERFEN ALS BEI NORMALEN 
293F DI POP DE ı ZEIGER AUF 2. ZEICHEN UND 
2940 DI POP DE ; AUF 1. ZEICHEN WEGWERFEN 
2941 E5 PUSH HL ; ZEIGER AUF LETZTES ZEICHEN 
2942 ; RETTEN 
2942 DF RST GETAKT ; AKTUELLES ZEICHEN LADEN 
2943 CD 88 2ZC CALL #2C8B8 ; UND NOCHMAL DEN VARIABLEN- 
2946 30 03 JR NC,$#294B ; NAMEN üBERSFRINGEN: DIES 
2948 E7 RST GETNXT ; WURDE WEITER DBEN ABER BEREITS 
2949 18 FB JR $2943 ; DURCHGEFÜHRT! 
294B s 
294B Ei POP HL ; ZEIGER AUF LETZTES ZEICHEN 
294C ; EINES VARIABLENNAMEN HOLEN 
294C CB 10 RL B ; ZUM FLAGSETZEN NACH LINKS RO- 
ZIAE CB 70 BIT &,B ; TIEREN UND BIT & (= 5 ALT) 
2950 C9 RET ; TESTEN 
2951 } 
2951 ; UNTERPROGRAMM, UM DIE ARGUMENTE VEN ’DEF FN' AUF 
2951 ; DEN CALC.-STACK ABZULEGEN. DER EINSPRUNG ERFOLGT VON 
2951 ; DER VARIABLENSUCHROUTINE AUS 
2951 ; 
2951 2A OB SC LD HL,(DEFADD) ; ZEIGT AUF 1. ZEICHEN IM 
2954 ; ARGUMENTBEREICH 
2954 7E LD A, (HL) ; ERSTES ZEICHEN LADEN 
2933 FE 23 u 5 ; KENN NUR KLAMMER ZU, DANN 
2957 CA EF 28 JP Z,$2BEF ; IM VARIABLENBEREICH SUCHEN 
295A s 
2720 TE LD A, (HL) ; ERSTES ARGUMENT LADEN 
295B Fö 60 OR $60 ; = EINFACHE NUMERISCHE VARIABLE 
295D 47 LD B,A ; NACH B BRINGEN 
295E 23 INC HL ; DAS NÄCHSTE ZEICHEN 
295F 7E LD A,(HL) ; LADEN 
2960 FE OE CP SE ; MERKER FüR ZAHLEN ? 
2962 28 07 JR 7,$29&B ı JA 
2964 2B DEC HL s FüR STRINGS SICHERSTELLEN, 
2965 CD AR 28 CALL $2BAB ; DASS HL AUF EIN ZEICHEN 
2968 23 INC HL ;s NACH DEM '$’ ZEIGT 
2969 CB AB RES 5,B ; STRING-VARIABLE ANMERKEN 
296B s 
296B 78 LD A,B ; VARIABLENART UND TYP NACH A 
296C B9 CPc ; MIT DEM GESUCHTEN VERGLEICHEN 
2960 28 12 JR 2,$2981 ; RICHTIG GEFUNDEN 
29bF 23 INC HL ; SONST MIT HL DIE 
2970 23 INC HL ; 5 BYTES EINER VARIABLEN 
2971 23 INC HL ; DDER DIE STRINGPARAMETER 
2972 23 INC HL ; ÜBERSPRINGEN 
2973 23 INC HL 
2974 CD AB 28 CALL $#28AB ; DAS NÄCHSTE ZEICHEN HOLEN 
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2947 FE 29 GP °y ; WENN DIESES EINE KLAMMER IST, 
2973 CR EF 28 JP Z,$2BEF ı DANN IM VARIABLENB. SUCHEN 
297C CD AB 28 CALL #2BAB ; HL AUF DAS NÄCHSTE ARGUMENT 
2I7/F 18 D9 JR #295A ; SETZEN UND UNTERSUCHEN 

2981 - 

2981 CB 69 BLT 2:6 ; ARGUMENT NUMERISCH ? 

2983: 20 OL JR NZ,$2991 ; JA 

2985 23 INC HL ; ZEIGT AUF 1. DER 5 AUF DEN 
2986 ; STACK ABZULEGENDEN BYTES 

2986 ED SB 55 SC LD DE,(STKEND) ; STACKEND LADEN 

29BA CD ECO 33 CALL #33C0 ı DIE 5 BYTES AUF DEM CALC.- 
2980 EB EX DE,HL ; STACK ABLEGEN UND DAS 

ZIBE 22 65 SL LD (STKEND),HL ; NEUE STACKENDE SPEICHERN 

29411 DM POP DE ; DIE ZEIGER DER VARIABLENSUCH- 
2492 DM POF DE ; ROUTINE WESKWERFEN 

2493: AF XDR A ; CARRY UND ZEROFLAG LöSCHEN, UM 
2994 3C INC A ; DAMIT ANZUZEIGEN, DASS NICHTS 
2973 69 RET ; MEHR GESTACKT WERDEN MUSS 
2996 - 

2996  SUBROUTINE ZUM SUCHEN VON STRINGPARAMETERN IM 

29965 ; VARIABLENBEREICH ODER ZUM FINDEN DER BASISADRESSE 
2996 ;ı EINES ARRAYS 

2995 - 

2996 AF XOR A ı ARRAYFLAG LSSCHEN 

2997 47 LD B,A ; REG B LÖSCHEN 

2978 CB 7/7 BiT 7,6 ; SYNTAXPRÜUFUNG ? 

299A 20 4B JR NZ,*29E7 ı JA 

2946 BB ZE BIT 7,({HL) ; ARRAY ? 

217E 20 DE JR NZ,#29AE ; JA 

29A0 3C INC A ; NORMALER STRING ANMERKEN 

z9Ai 3 INC HL ; ERSTES BYTE üBERGEHEN 

29A2 4E LD C,(HL) ; DIE LÄNGENBYTES LOK 

29A3 23 INC HL 

29A4 46 LD B, (HL) ; UND HIGH LADEN 

2985 23 INC HL 

29A6 EB EX DE,HL ; ZEIGER NACH DE 

29A7 CD B2 ZA CALL #2AB2 ; REGS A - E AUF STACK ABLEGEN 
29AA DF RST GETAKT ; AKTUELLES ZEICHEN LADEN 

29AB C3 49 2A JP #2A49 

Z9AE ; 

2I8E 23 INC HL ; BASISADRESSE EINES ELEMENTS 
29AF 23 ING HL ; VON EINEM ARRAY BESTIMMEN, DIE 
29E0 23 ING HL ı LÄNGENBYTES WERDEN ÜBERGANGEN 
29B1 46 LD B, (HL) ; DIMENSION LADEN 

2952 GB 71 BIT &,b ; ZAHLENARRAY ? 

29B4 2B 0A JR 72,329C0 ; JA 

29BA 05 DEC B ;s EIN STRINGARRAY MIT DIM =1 KANN 
29B7 ; WIE EIN NORMALER STRING 

29E7 28 EB JR Z,#29A1 ; BEHANDELT WERDEN: SFRUNG 

29B9 EB EX DE,HL ; ZEIGER IN DE ZWISCHENSPEICHERN 
29BA DF RST GETAKT ; AKTUELLES ZEICHEN LADEN 

23BE FE 28 Ber" ; WENN ES NICHT EINE KLAMMER 
29BD 20 &1 JR NZ,#2A20 ; IST, DANN ERROR 

2IBF EB EX DE,HL 

2°C0 EB EX DE,HL ; ZEIGER NACH DE ERINGEN 

2IEL 10 24 JR $29E7 

2963 - 


2963 


NACHFOLGEND DIE SCHLEIFE ZUM SUCHEN DER PARAMETER 
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DO 


EE 


Sc 


00 


2A 


EINES ARRAYELEMENTS, 
STRINGARRAYS HABEN EINE DIMENSION WENIGER ALS ANGBEBE- 
BEN, DA DER LETZTE TEIL ALS BESCHREIBUNG EINES 
TEILSTRINGS DIENT 


PUSH HL 
RST GETAKT 
POP HL 

GR3R it 

JR 2,$29EA 


BrT 7,6 
JR 7,$2A20 

BIT &4,C 

JR NZ,+29D8 
Et 

IR NZ,$2A12 
RST GETNKT 

RET 


up > 
JR 2,$2A48B 


CP $CC 
JR NZ,$2A12 
RST GETAKT 
DEC HL 


LD (CHADD) ‚HL 


JR $2A45 


LD HL,0 
PUSH HL 
RST GETNXT 
POP HL 

LD A,C 

CP $C0 


JR NZ,#29FB 
RST BETAKT 
cp 'Y° 

JR 2,$2A48 
CP $CC 

IR 12,+29E0 


PUSH BC 
PUSH HL 


CALL $2AEE 
EX (SP) HL 
EX DE,HL 

CALL $2ACC 


JR C,$2A20 
DEC EC 


EB DIENT ALS DIMENSIDNSZÄHLER. 


WE a BE a TEE a NE a TEE a 


H 
h 
. 
; 
; 
; 
3 


| eu a A ae WE a 


—— 1 a EEE a NEE a EEE a NEE a TE 


ZÄHLER ZWISCHENSPEICHERN 
AKTUELLES ZEICHEN LADEN UND 
ZÄHLER WIEDER HOLEN 

WENN ES EIN KOMMA IST, SPRUNG 
UM WEITERE BESCHREIBUNG 

ZU} BEARBEITEN 

SYNTAXPRUÜFUNG ? 

NEIN: ERROR 

STRINGARRAY ? 

JA 

WENN DAS ZEICHEN NUNMEHR KEINE 
KLAMMER IST: ERROR 

SONST CHADD +1 


IST ZEICHEN EINE KLAMMER ? 
JA, WEITERE BESCHREIBUNG DES 
(TEIL-) STRINGS UNTERSUCHEN 
IST ES DAS TOKEN 'TD’ ? 

NEIN 

HL MIT CHADD LADEN 

i ZEICHEN ZURÜCK 

CHADD NEU SETZEN 

TEILSTRING ENTWICKELN 


NORMALER EINSTIEGSPUNKT IN DIESE ROUTINE 


ZÄHLER ZU NULL SETZEN 

ZÄHLER ZWISCHENSPEICHERN 
CHADD +1 

ZÄHLER ZURÜCKHOLEN 
BESCHREIBUNGSBYTE NACH A 
SYNTAXFRÜFUNG FÜR ARRAYS DDER 
STRINGS ? 

NEIN 

AKTUELLES ZEICHEN LADEN UND 
VERGLEICHEN 

JA: ZÄHLEN DER ELEMENTE FERTIG 
IST ES DAS TOKEN 'T0O’ ? 

JA: TEILSTRING BEARBEITEN 


DIM-ZÄHLER UND BESCHREIBUNGS- 
BYTE SOWIE DEN ELEMENTEZÄHLER 
ZWISCHENSPEICHERN 

GRÖSSE DER DIMENSION NACH DE 
TAUSCH ZÄHLER/VARIABLENZEIGER 
ZÄHLER NACH DE, GRÖSSE NACH HL 
"BESCHREIBUNG" DES NÄCHSTEN 
ELEMENTS UNTERSUCHEN 

NICHT MEHR IM BEREICH: ERROR 
ZÄHLER -1, WEIL DIE ELEMENTE 
VOR DEM GESUCHTEN ABGEZÄHLT 
WERDEN MUSSEN 


05 
Fa 


EE 


FA 2 


00 
n 
£ 


öl B& 


h 


, 


; 


CALL $2AF4 
ADD HL,EE 
POP DE 
POP EC 
DINZ $2903 


Bit ZC 

JR NZ,$2A7A 
PUSH HL 

BIT 4,C 

IR NZ,$2A2C 
LD B,D 

LD C,;E 

RST BETAKT 

Ep: "q° 

JR 7,*2422 


RST ERRAUS 
«BYT #02 


RST SETNKT 
POP HL 
LD DE,S 
CALL $2AF4 


ADD HL,BE 


RET 


CALL $2AEE 
EX (SP) HL 


CALL $2AF4 
POP EC 

ADD HL,BC. 
INC HL 

LD B,D 

LD C,E 

EX DE,HL 
CALL $2AB1 


RST BETAKT 

Ep’) 

IR 2,$2A48 

Ept tz 

JR NZ,$2A20 
CALL $2452 

RST BETNKT 

Ei 


u En a 


Eu TEE u a 


ZAÄHLER*DIM (HL*DE) BILDEN 
ELEMENTNUMMER ADDIEREN 
VARIABLENZEIGER WIEDER HOLEN 
DIMENSION UND ARTENEYTE ZURÜCK 
WEITER BIS B = 6 


FALLS SYNTAXPRUFUNG, 
BANN ERROR 

ZÄHLER RETTEN 
STRINSARRAY ? 

JA 

VARIABLENZEIGER NACH BC 


AKTUELLES ZEICHEN 
MUSS KLAMMER ZU SEIN 


SONST FEHLERMELDUNG: 
"SUBSCRIFT QUT OF RANBE' 


CHADD +1 

ZÄHLER ZURÜCKHOLEN 

5 BYTES FüR JEDES ARRAYELEMENT 
BENGSTIETE EYTEZAHL VOR DEM 
GESUCHTEN ELEMENT BERECHNEN 

HL ZEIST AUF BEN PLATZ VOR 

DEM GESUCHTEN ELEMENT 


STRINGARRAYS WEITER BEARBEITEN 


DIE LETZTE DIM-GRöSSE HOLEN 
VARIABLENZEIBER AUF STACK UND 
ZÄHLER NACH HL 
ZÄHLER+DIM-SRÖSSE AUSRECHEN 
VARIABLENZEIGER NACH BC 

HL ZEIST AUF DEN 

ANFANG DES STRINGS 

LETZTE DIMENSIONSBRÄSSE ALS 
LÄNGE NACH BE 

STRINGANFANG NACH DE 

DIESE PARAMETER AUF DEM 
CALC.-STACK ABLEGEN 
AKTUELLES ZEICHEN LADEN 

IST DIESER TEIL FERTIG ? 

Ja 

WENN ES KEIN KOMMA IST, 

DANN ERROR 

PARAMETER MODIFIZIEREN 

CHADD +1, NÄCHSTES ZEICHEN 
WENN DIESES KLAMMER AUF IST, 
MUSS EIN WEITERER TEIL UNTER- 
SUCHT WERDEN 

STRINBERSEBNIS ANMERKEN 


SUBROUTINE ZUM BEARBEITEN VON TEILSTRINGS 
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2452 
2ASS3 
2A58 
2453 
2A59 
2ASB 
2ASD 
2ASE 
2A5F 
ZA&O 
2A6l 
2Ad4 
2455 
2Ad& 
2A68 
2A65A 
2A&B 
2AGE 
2AGE 
2AGE 
2A6F 
2A70 
2A71 
2472 
2473 
2A74 
2A7& 
2A78 
2A7A 
2A7D 
2A7D 
2A7D 
2A7D 
2A7D 
2A7E 
2A7F 
2ABI 
2ABi 
2A82 
2AB3 
2AB4 
2A8&6 
2A88 
2A8?9 
2ABE 
2AEBD 
2ABE 
2ABF 
2A90 
2492 
2h94 
2A95 
2A96 
2A?6 
2497 
2A98 
2A98 
2499 
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30 25 
Fi 2B 


29 


30 


01 60 


cc 


17 


ED 2A 


8A IC 


CD 2A 


29 
Ed 


au TE un 


CALL #2530 
CALL NZ,&2BFi 


RST BETNXT 
Sa 

IR Z,$2AAD 
PUSH DE 
XOR A 

PUSH AF 
PUSH BC 

LD DE, 
RST GETAKT 
POP HL 

CP $CE 

JR Z,$2AB1 
POP AF 
CALL $2ACD 


PUSH AF 

LD D,B 

LD E,C 

PUSH HL 

RST GETAKT 

POP HL 

CP $CC 

JR Z,$2AB1 

Ep 1° 

JP NZ,$1CBA 


[} 
3 
“ 
’ 
[3 
3 
} 
[3 
s 
[3 
; 
; 


“ 
} 
[ 
; 
[1 
) 
‚ 
; 
” 
; 
- 
} 
[} 
3 
“ 
; 
[3 
; 
“ 
} 
. 
} 
} 
3 
; 
; 
[3 
} 
“ 
’ 
[3 
; 
Ei 
} 
; 
s 


SYNTAXPRÜFUNG ? 

NEIN: FARAMETER VDM 
CALC.-STACK HOLEN 

CHADD +i, NÄCHSTES ZEICHEN 
WENN ')', DANN IST DIE ANSABE 
NUR "t)’, SPRUNG 

STARTADRESSE AUF STACK 

REG A = DO UND 
ZWISCHENSPEICHERN 

LÄNGE ZWISCHENSPEICHERN 
DEFAULTANFANG: 1. BUCHSTABEN 
ERSTES ZEICHEN LADEN 

LÄNGE NACH HL 

IST ES DAS TOKEN 'TD’ ? 

JA (1. PARAMETER = 1) 

REG A (=0) ZURÜCKHOLEN 

NACH BC DEN 1. PARAMETER LADEN 
REG A ENTHÄLT #FF, FALLS 
BEREICHSUBERSCHREITUNG 

REG A ZWISCHENSPEICHERN 

DEN ERSTEN PARAMETER 

NACH DE KOPIEREN 

DIE LÄNGE ZWISCHENSPEICHERN 
AKTUELLES ZEICHEN LADEN 
LÄNGE NACH HL LADEN 

IST ES DAS TOKEN 'TD’ ? 

JA 

SONST MUSS ES EINE ')° SEIN 
WENN NICHT: ERROR 


HIER WIRD EIN EINZELNES ZEICHEN EINES STRINGS, 


Z« B. C$(7), BEARBEITET 


LD H,D 
LD L,E 
JR $2A94 


PUSH HL 
RST GETNXT 
POP HL 

Ep. *y° 

JR 2,$2A94 
POP AF 
CALL $2ACD 
PUSH AF 
RST GETAKT 
LD H,B 
Ehe 
ep." 

IR NZ,$2A7A 
POP AF 

EX (SP) HL 


ADD HL,DE 
DEC HL 


EX (SP) HL 
AND A 


“ 
3 
; 


u GE a TEE u NEE a TEE u NEE u or. 0 0 u BEE a WE van 


PARAMETER NACH DE: DAS LETZTE 
IST GLEICH DEM ERSTEN ZEICHEN 


LÄNGE ZWISCHENSPEICHERN 
CHADD +i, NÄCHSTES ZEICHEN 
LÄNGE WIEDER NACH HL 

WENN KLAMMER, DANN GIBT ES NUR 
1 PARAMETER 

REG A ZURUCKHOLEN 

DEN 2. PARAMETER NACH BC 
REG A RETTEN ($FF = ERROR) 
AKTUELLES ZEICHEN LADEN 
ZWEITEN PARAMETER NACH 

HL KOPIEREN 

ES MUSS EINE KLAMMER SEIN 
SONST ERROR 

ERRORANZEIGE ZURÜCKHDLEN 
2. PARAMETER AUF STACK, ANFANG 
NACH HL 

1. PARAMETER ZUM ANFANG 
ADDIEREN UND -1: = 1. ZEICHEN 
DES TEILSTRINGS 

RETTEN UND 2, PARAMETER HOLEN 
CARRY LöSCHEN 


2A9A 
2A9c 
2n9F 
2AnAI 
2AA2 
2AAS 
2AAd 
2AA7 
2AAB 
2AA? 
2AAD 
2ABO 
2AB1 
2ABi 
2AB1 
2AB1 
2ABI 
2AB1 
2ABI 
2ABi 
2AB2 
2AB2 
2AB& 
2AB7 
2ABA 
2ABB 
2ABE 
2ABF 
Z2ACO 
2AC1 
2AC2 
2AC3 
2Ac4 
2ACS 
2ACh 
2AC7 
2ACB 
2ACB 
2ACC 
2ACC 
2ACC 
2ACC 
2ACC 
2ACC 
ZACD 
2ACE 
2ACF 
2ADO 
2AD3 
2ADS 
2AD4 
2AD7 
2AD9 
2ADA 
2ADD 
2ADD 
ZADE 
2ADF 


CB 
>0 


CB 


A? 


65 


65 


00 


2A 


01 B& 
25 


01 Bö 


Sc 


ic 


—— WE u TEE a EEE a 


—— a BE un 


RES 6, (IY+1) 


CALL #2530 


FLAGS: STRINGERGEBNIS MERKEN 
SYNTAXPRÜFUNG ? 


SBC HL,DE ; 2. - 1. PARAMETER ERGIBT LÄNGE 
LD BC,O ; NEUE LÄNGE = 0 
JR C,$*2AAB ; NEGATIVE LÄNGE WIRD NULLÄNGE 
INC HL ; LÄNGE KORRIGIEREN 
AND A ; BEREICHSÜBERSCHREITUNG ? 
JP M,$2A20 ; JA: ERROR 
LD B,H ; NEUE LÄNGE NACH BC 
LD C,L ; KOPIEREN 
POP DE ; START 1. ZEICHEN TEILSTRING 
; 
; 
; 


RET Z 


JA: RETURN 


SUBROUTINE, UM PARAMETER, DIE IN DEN RESISTERN A - E 
ENTHALTEN SIND, AUF DEM CALC.-STACK ABZULEGEN. 

REG A = O0 BEDEUTET STRING VON EINEM ARRAY ODER EIN 
TEILSTRING, EINE 1 SIGNALISIERT EINEN EINFACHEN 
STRING, DESSEN ALTER WERT ENTFERNT WERDEN KANN. 


XOR A 


RES 6, (IY+1) 


TEILSTRING ODER STRING VON 
EINEM ARRAY ANMERKEN 
FLASS: STRINGERGEBNIS MERKEN 


PUSH BC ZWISCHENSPEICHERN 
CALL $33A9 TEST, DB NOCH 5 BYTES FREI 
POP BC BC WIEDER LADEN 


LD HL, (STKEND) 


LD (HL),A 
INC HL 
LD (HLI,E 
INC HL 
LD (HL),D 
INC HL 
LD (HL),C 
INC HL 
LD (HL),B 
INC HL 


LD (STKEND) ,HL 


RET 


-_—— ME EEE a En 


” 
’ 


STACKENDE LADEN: 1. FREIER 
PLATZ, DIE PARAMETER EINZELN 
EINSCHREIBEN 

ANFANGS EINES STRINGS 


LÄNGE DES STRINGS 


NEUES STACKENDE 


SUBROUTINE ZUM EINLESEN EINER INTEGERZAHL INS BC-RESE. 
DAS ERGEBNIS DARF NICHT SRSSSER ALS DER INHALT VON HL 
SEIN, SONST ERROR. ERRORANZEIGE IN REG A: #$FF = ERROR 


XOR A KEIN ERROR ANMERKEN 

PUSH DE DE UND HL 

PUSH HL ZWISCHENSPEICHERN 

PUSH AF DESSLEICHEN ERRDRANZEIGE 


CALL $#1C82 


POP AF 
CALL #2530 
IR Z,$2AEB 


-———_ ME a EEE u EEE u TE a TEE u 


NÄCHSTEN AUSDRUCK BERECHNEN 
UND AUF DEN CALC.-STACK LEGEN 
ERRDRREGISTER ZURÜCK 

WENN SYNTAXPRÜFUNG, 

DANN REST ÜBERSPRINGEN 


PUSH AF ERRORREGISTER RETTEN 

CALL #1E99 LETZTER WERT VOM CALC.-STACK 
NACH BC BRINGEN 

FOP DE ERRDRREGISTER NACH D 

LD A,B FALLS DER AUSDRUCK 0 ERGAB, 

ORC 
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2AEO 37 SCF ; DANN BEBEUTET DIES EINEN 


2AE1 28 05 JR Z,$2AE8 ; FEHLER 

2AE} ; 

2hES EI FOP HL ; LIMIT ZUM TESTEN NACH HL 

ZAE4 E5 FUSH HL ; BRINGEN 

2AES #7 AND A ; CARRY LÖSCHEN 

2AE& ED 42 SEL HL,BE ; VERGLEICHEN: CARRY GBELSSCH: 
2AEB ı KEIN ERROR, SONST: 

2AEB 7A LD A,D ı ERRORRESBISTER NACH A 

2AE9 DE 00 SBE 0 ; WENN ALLES IN ORDNUNG, BLEIBT 
2AER ; DER WERT IN REG A, SONST WIRD 
2AEB ; EINE 1 SUBTRAHIERT: ZÖ=ERROR 
2REB El FOP HL ı HL UND DE WIEDER 

ZREC DI POP DE ; VOM STACK HOLEN 

2ZRED [7 RET 

2AEE - 

2AEE ; DIESE SUBROUTINE LÄDT RESISTER DE AUS DEN SPEICHER- 
2AEE ; PLÄTZEN (DE+1), (DE+2) 

2AEE ; 

ZAEE EB EX DE,HL ; ADRESSE NACH HL 

2AEF 23 INC HL ; +1 = (DE+1) 

2AFO SE : LD E,({HL) ;ı E VON (DE+1) LADEN 

2AFl 253 INC HL Ehe iDEr2) 

2AF2 56 LD D,(HL) ı D VON (DE+2) LADEN 

ZAFZ [9 RET 

2ArF4 - 

2AF4 ; SUBRQUTINE ZUM BERECHNEN VON DE * HL UND TEST, DASS 
2AF4 ; DAS ERGEBNIS IN HL KLEINER ALS #&553%# IST 

2Ar4 ; 

2AF4 CD 30 25 CALL 2530 ; WÄHREND DER SYNTAXPRUFUNG 
2AF7 68 RET Z ; WIRD DER WERT NICHT BERECHNET 
aAF8 CD AP 30 LALL $30A9 ;, MULTIPLIKATION AUSFÜHREN 

ZAFB BA IS IF JP C,$1F15 ; ERROR: 'DUT OF MEMORY’ (ES 
2AFE [9 RET ; WIRD EINE SPEICHERADRESSE 
ZAFF ; UNTERSTELLT) 

ZAFF - 

ZAFF s BEFEHL LET 

ZAFF ı ES WIRD DIE TATSÄCHLICHE ZUWEISUNG BEI LET, READ UND 
ZAFF : INPUT DURCHGEFÜHRT 

2AFF - 

2AFF ZA 4D SC LD HL, {DEST) ; DERZEITIGE ZIELADRESSE LADEN 
2B02 FD CB 37 4E BIT 1,11Y+837) 5; FLAGX: EXISTIERT DIE VARIABLE 
2Büs ; SCHON ? 

2Bü6& 28 SE JR Z,$2B64& ı JA 

2608 ; 

2B08 01 05 00 LD BC,S ; DEFAULTLÄNGE NUMERISCH 

2EÖOB 03 INC BC ; +1 FüR JEBES ZEICHEN VOM NAMEN 
2BöC 23 INC HL 

2BOD T7E LD A,(HL) ; ZEICHEN LADEN 

2BOE FE 20 BP, tr? ; LEERZEICHEN IGNORIEREN 

2El0 ZB FA JR Z,#2BOC 

2Bi2 30 OB JR NE,$2BiF s SPRUNG MIT $21 - $FF 

2Bi4 FE 10 CP #10 ; ALS ENDECDDE 00 - OF 

2Bi6 38 ii JR C,$2B29 ; ZULASSEN 

2Bi8 FE 1& EP #16 ; DESGLEICHEN DEN BEREICH 

2BiA 30 OD JR NC,#2B29 ı VON $i1& - $1F ZULASSEN 

2Bit R INGE HL ; #810 - #15 ÜBERSPRINGEN 

2BiD 18 ED JR #2BOC 
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2EiF CD BB 2 CALL $26B8 ; TEST: ZEICHEN ALFHANUMERISCH ? 
2B22 38 E7 JR G,#2BOB ı JA: ZEICHEN FüR LANGEN NAMEN 
2B24 FE 24 Eu 7 ; ZEICHEN '$’ FÜR STRING ? 

2B26& CA CD 2B JP Z,#2BC0 ı JA 

2B29 ; 

2B29 : FüR EINE NEUE NUMERISCHE VARIABLE WERDEN 'BC' PLÄTZE 
2529 ; GEBRAUCHT (NAME + WERT). DANACH KIRD DIE VARIABLE 
2529 ; KOMPLETT KOPIERT 

2B29 - 

2829 77 LD A,£ ; LÄNGE NACH A 

2B2A 2A 59 SC LD HL,(ELINE) ; HL AUF DAS ENDE DES VARIABLEN- 
2B2 2 DER HL ı BEREICHS (BYTE = #80) SETZEN 
2B2E 6D 35 Io CALL #16555 ı FLATZ FüR DIE VARIABLE MACHEN 
2831 23 INC HL ı AUF DAS ERSTE NEUE EYTE ZEIGEN 
ZB32 28 INE HL ; UND AUF DAS ZWEITE 

2233 E93 Ex DE,HL ; DIESER ZEIGER NACH DE 

2B324 DS PUSH DE ; UND ZWISCHENSPEICHERN 

2B353 2A 40 SE LD HL,(DEST) ; ZEIGER AUF VARIABLENNAMEN- 
2B38 ; ANFANG LADEN 

2E38 1B DEC DE ; AUF ERSTES NEUES BYTE ZEIGEN 
2E39 DA 0% SUB & ı DIE ANZAHL DER ZUSÄTZLICHEN 
2B5B 47 LD B,A ; ZEICHEN EINES LANGEN NAMENS 
2B3C ; NACH B BRINGEN 

236 28 I1 JR Z,$2ZB4F : WENN 0: NORMALER NAME 

2B3E ; 

EB3E 23 INC HL ı DIE ZUSÄTZLICHEN ZEICHEN 

2E3F 7E LD A,(HL) ; LADEN 

2B40 FE 21 ee ı ZEICHEN IM BEREICH #09 = #20 
2EB42 3B FA JR C,$2B3E ; IGNORIEREN 

2B44 F& 20 DR $20 ; ALLE ZU KLEINBUCHSTABEN MACHEN 
2B4& 13 INC DE ; ZEIGER ERHÖHEN UND 

2B47 12 LD (DE),A ; EINSCHREIBEN 

2B4R 10 FA DINZ #2B3E ; WIEDERHOLEN, BIS B = D IST 
2B4A : 

2B4A FA 80 DR $80 ı DAS LETZIE ZEICHEN MIT 

2B4t 2 LD (DE) ,A ; #90 DDERN ZUM MARKIEREN 

2B4D 3E CO LD A,$Co ı MERKBYTE LANGER NAME 

ZE4AF 2A AD SC EB-HL,tDEST) ; ADRESSE ERSTER BUCHSTABE 

2E52 #AE XOR (HL) ; ERSTER BUCHSTABE EXOR MIT 
2853 ; Ö=KURZ ODER $C0= LANG 

2B35 Fü 20 OR #20 ı KLEINBUCHSTABE SETZEN 

2800: El POP HL  ZEIBER AUF ZWEITES ZEICHEN 
2B55 ı WEGWERFEN 

2B5k CD EA 2B CALL #ZBEA ; DEN BUCHSTABEN EINSCHREIBEN 
2B59 ; UND HL AUF DAS NEUE ENDEBYTE 
2559 ı (=#380) SETZEN 

2B59 - 

2557  E5 FUSH HL ı ZIELPOINTER RETTEN 

2B5A EF RST CALRUF ; EALEULATOR AUFRUFEN UND 

2ESB 02 .EYT 02 : 5 BYTES LöScHEN 

2BSt 38 „BrT 838 ; ENDE 

2850 Ei POP HL ; ZIELPOINTER ZURÜCK 

2BSE 01 05 00 LD BC,5 ; ZAHLENLÄNGE = 5 

2B&l 97 AND A ; CARRY LÖSCHEN 

26452 ED 42 SBE HL5BE ı HL ZEIST AUF DEN ERSTEN DER 5 
2B64 18 40 JR $2EA& ı PLÄTZE UND SFRUNG ZUM KOPIEREN 
2Bäb ; 
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2B5& ; BEARBEITUNG EINER BEREITS VORHANDENEN VARIABLEN 


2B&& H 

2B&& FD CB 01 76 BIT 5,t1Y+1) : FLAGS: STRINGVARIABLE ? 

2Bb&A 28 06 JR Z,#2B72 ı JA 

2BöC j 

2Böt ı DER ALTE ZAHLENWERT EINER NUMERISCHEN VARIABLEN WIRD 
2B&C ; DURCH DEN NEUEN üBERSCHRIEBEN. HL MUSS DESHALB 

2B&C ; KORRIGIERT WERDEN 

2B&C ; 

2B&öct il 08 00 LD DE, ı & ADDIEREN, DAMIT HL HINTER 
2BAF 19 ADD HL,DE ; DIE VARIABLE ZEIGT 

2570 ZB E7 JR $2B59 ; WIE NORMALE VARIABLE WEITER- 
2B72 ; BEHANDELN 

2B72 ; 

2B72 ; STRINSVARIABLEN BEARBEITEN 

2B72 - 

2B72 2A 4D SC Lk HLSIDEST) ; ANFANGSADRESSE LADEN 

2E75 ED 4B 72 SC LD BC,(STRLEN) ; STRINGLÄNGE NACH BC LADEN 
2679 FD CB 37 46 BIT O,{IY+$37) 3; FLAGX: KOMPLETTER EINFACHER 
2B7D ; STRING ? 

2B7D 20 30 JR NZ,$2BAF ı JA 

2B7F - 

2B7F ; BEARBEITEN VON TEILSTRINSS UND STRINGS VON ARRAYS 
2B7F } 

2B7F 78 LD A,B ; LÄNGE DES STRINGS AUF 

2B80 Bi DR cC ; NULL PRÜFEN 

2B81 CB RET Z ;s BEI NULL: RETURN 

2Be2 ES PUSH HL ; ANFANGSFOINTER RETTEN 

2883 F7 RST $30 ı PLATZ IM WORKSPACE BESORGEN 
2E84 D5 PUSH DE ; ZEIGER AUF ERSTEN FLATZ RETTEN 
2585 C5 PUSH BC ; LÄNGE EBENFALLS 

2BS5 54 LD D,H s DE AUF LETZTEN PLATZ SETZEN 
2B87 SD LUD E,L 

2Be8 23 INC HL ; HL DAHINTER ZEIGEN LASSEN 
2B89 36 20 LD (HL), ' ;s EIN SPACE EINSCHREIBEN 

2BSB ED EB LDDR s ALLE WEITEREN PLÄTZE MIT 
2B8D ; LEERZEICHEN BESCHREIBEN 

2BBD ES PUSH HL ; ZEIGER ZWISCHENSPEICHERN 
2BBE CD Fi ZB CALL $2BFi ; PARAMETER VOM CALC.-STACK 
2891 Ei POP HL ; HOLEN UND ZEIGER ZURÜCKHLADEN 
2B92 E3 EX (SP) ,HL ; ZEIGER MIT LÄNGE TAUSCHEN 
2E93 47 AND A ; CARRY LÖSCHEN 

2B94 ED 42 SBCE HL,BC ; DIE BEIDEN LÄNGEN VERGLEICHEN 
2B9h 09 ADD HL,BC 

2B97 30 02 JR NC,$#2B9B s STRING NICHT ZU LANG 

2E99 44 LD B,H ;s NEUE LÄNGE ZU LANG: STRING 
2B9A 4D LD &,& ; GEKÜRZT, BC = LÄNGE 

2B9B ES EX (SP},HL ; LÄNGE MIT ZEIGER TAUSCHEN 
2BSC EB EX DE,HL ; ZEIGER NACH DE, STRINGANFANG 
2B9D ; NACH HL 

2E9D 78 LD A,B ı STRINGLÄNGE NOCH MAL 

2B9E Bi OR C ;s AUF NULL TESTEN 

2B9F 28 02 JR 2,$2BA3 s BEI NULL NICHTS EINSCHREIBEN 
2BAli ED BO LDIR ; SONST NEUEN STRING IN DEN 
2BA3 ; WORKSPACE EINSCHREIBEN 

2BA3 Ci POP BC ; NEUE LÄNGE, 

2BA4 Di POP DE ; ZEIGER AUF NEUEN BEREICH UND 
2BAS Ei POP -HL ; ANFANGSADRESSE HOLEN 
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HE a 


SUBROUTINE ZUM EINSCHREIBEN EINER NUMERISCHEN 
VARIABLEN VOM CALC.-STACK OBER EINES STRINGS 
voM WORKSFACE IN DEN VARIABLENBEREICH 


EX DE,HL ; ZEIGER TAUSCHEN 

LD A,B ; LÄNBE AUF NULL 

OR C ; PRÜFEN 

RET 2 ; NULL: NICHTS EINSCHREIBEN 
PUSH DE ; ZIELADRESSE RETTEN 

LDIR ; TRANSFER DURCHFÜHREN 

POP HL ; ZIELADRESSE NACH HL 

RET 


BEARBEITUNG EINES KOMPLETTEN, NEUEN UND EINFACHEN 
STRINGSS (VON LET HERKDMMEND) 


CALL #2BC6 DEN NEUEN STRING ZUM 


VARTABLENBEREICH HINZUFÜGEN 


DEC HL ; HL AUF DEN BUCHSTABEN DES 
DEC HL ; VARIABLENNAMENS SETZEN 
DEC HL ; {=DEST -3) 
LD A,(HL) ; BUCHSTABEN LADEN 
FUSH HL ; ZEIGER AUF EXISTIERENDEN 
; STRING RETTEN 
PUSH BC ; LÄNGE ZWISCHENSPEICHERN 
; 
h 
FOF ECG ; LÄNBE UND ZEIGER AUF 
POP HL ; DEN ALTEN STRING ZURÜUCKHOLEN 
INC BC ; LÄNGE +7 BILDEN FüR 
Inc EC ı NAMEN UND STRINGLÄNGE 
INC EC 
JP RAUS2 : UND DEN ALTEN STRING ENTFERNEN 


NEUE EINFACHE STRINGS BEARBEITEN 


LD A,$DF « MASKE FÜR BUCHSTABEN LADEN 

LD HL,(DEST) ; ADRESSE DES BUCHSTABENS 

AND (HL) ‚ DIESEN MASKIEREN UND 

PUSH AF ‚ ZWISCHENSPEICHERN 

CALL $2BFi ; STRINGPARAMETER (LÄNGE, 

EX DE,HL : ANFANG) NACH HL 

ADD HL,BE ; LANGE ADDIEREN (ERGIBT ENDE+) 


PUSH EC ; LANGE ZWISCHENSPEICHERN 

DEC HL ; AUF LETZTEN PLATZ ZEIGEN 
LD (BEST) ,HL ; ZEIGER ZWISCHENSPEICHERN 
INC BC ; LÄNGE +3 FüR: 


INE BE NAMENSEYTE UND STRINLAÄNGE 
INE BC 

LD HL,(ELINE) ; HL AUF ENDEBYTE 

DEC HL ; DES VARIABLENBEREICHS SETZEN 
CALL #1555 ; DEN BENSTISTEN PLATZ BESORGEN 
LD HL,(DEST) ; ZEIGER ZURUCKHOLEN 

POP BC ; LÄNGE NACH BE HOLEN 

PUSH BE 

INC EC ; +1 (FOR NULLSTRING) 

LDDR iı STRING +1 BYTE KOPIEREN 

EX DE,HL ; HL AUF DIE BYTES DER 

INGE HL ; LÄNGENPOSITION SETZEN 
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2BES 
2BE& 
2BE7 
2BE3 
2BE9 
2BEA 
2BEA 
2BEA 
2BEA 
2BEA 
2BEA 
ZBEB 
2BEC 
2ZBEF 
2BFO 
2BFI 
2BFi 
2BFil 
2BFi 
2BFi 
2BFi 
aBF4 
2BFS5 
2BF& 
aBF7 
2BF8 
2BF? 
2EFA 
2BFB 
2BFC 
2BFD 
2BFE 
2C01 
2602 
2002 
2602 
2602 
2602 
2602 
2602 
2602 
2602 
2602 
2002 
2002 
2605 
2C08 
2C0R 
2C0D 
2COF 
2CöF 
2C12 
2615 
2617 
2C18 
2C1B 
2C1B 
2C1E 
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ei 
79 
ZB 
7 
Fi 


4 hr 


I mu DD —y Ko 


[I pr bo 


65 SC 


7 
£ 


ic 
25 


29 
iB 


19 


19 


u. 


..: (| nn NEE en TEE 


POP BC ; LÄNGE HOLEN 

LD (HL),B ; LÄNGE HIGH UND 

DEC HL 

LD (HLI,EC ; LÄNGE LOW EINSCHREIBEN 

POF AF ; VARIABLENNAMEN ZURÜUCKHOLEN 


SUBROUTINE ZUM EINSCHREIBEN DES ERSTEN ZEICHENS EINES 
VARIABLENNAMENS (ALTES ENDEBYTE MIT #80). HL ZEIGT 
AM ENDE AUF DIE NEUE ENDE ($80)-FOSITIDN 


DEC HL ; ZEIGER KORRIGIEREN 

LD {HL),A ; NAMENSEYTE EINSCHREIBEN 
LD HL,IELINE)  ; NEUE POSITION 

DEC HL ; DES ENDEBYTES NACH HL 
RET 


SUBROUTINE ZUM LADEN DES LETZTEN EINTRAGS VOM 
CALEULATORSTACK., DIE WERTE KöNNEN EINE VARIABLE 
DBER STRINPARAMETER SEIN 


LD HL,{STKEND} ; ZEIGER AUF STACKENDE 
DEC HL 
LD B, HL) ; DIE EINZELNEN BYTES 
DEC HL 
LD C, (HL) ; NACHEINANDER IN DIE 
DEC HL 
LD D,CHL) ; REGISTER A - E LADEN 
DEC HL 
LD E,(HL) 
DEC HL 
LD A,(HL) 
LD {STKEND),HL ; NEUES STACKENDE 
RET 
„END 
.LIB SPEC2COO-S 
SINCLAIR ZX SPECTRUM TEIL 2600 


BEFEHL DIM 

DIESE ROUTINE DIENT ZUM ANLEGEN DER ARRAYS. WENN 
BEREITS EIN ARRAY UNTER DEM ELEICHEN NAMEN EXISTIERT, 
50 WIRD DAS ALTE ÜBERSCHRIEBEN. DAS GANZE ARRAY WIRD 
BEIM ANLEGEN MIT O0 (NUMERISCH) ODER #20 (SPACE, BEI 
STRINGS) BESCHRIEBEN 


CALL #28B2 
JP NZ,#1C8A 


IM VARIABLENEBREICH SUCHEN 
SPRUNG BEI EINEM FEHLER 


CALL $2530 PROGRAMMLAUF ? 
JR NZ,#2C15 JA 
RES 6,C FÜR SYNTAXPRÜFUNG STRINGARRAYS 


ZU NORMALEN MACHEN 


CALL 2995 KELAMMERAUSDRUCK PRÜFEN 


CALL #1BEE ZUM NÄCHSTEN BEFEHL VORGEHEN 
JR C,$2C1F SPRUNG BEI NEUEM ARRAY 

PUSH BC BESCHREIBUNGSEYTE RETTEN 

CALL $19B8 ANFANG DER NÄCHSTEN VARIABLEN 


SUCHEN 
DAS ALTE ARRAY ENTFERNEN 
BESCHREIBUNGSBYTE HOLEN 


CALL RAUS2 
POP BC 


0 WE u TEE a TEE a TEE u TEE an TEE a 


2ciF 
2ciF 
2C21 
26253 
2024 
2627 
2629 
2C2B 
2C2D 
2C2E 
2C2F 
2651 
2654 
2637 
2C58 
2659 
2659 
203A 
2C3B 
2C3C 
2C53D 
2640 
2041 
2642 
2044 
2646 
2648 
2C4R 
2C4B 
2C4C 
2C4D 
2C4E 
2650 
2C51 
2052 
2653 
2654 
2654 
2654 
2654 
2657 
2058 
2659 
2C5A 
2CS5B 
2C5C 
2C5F 
20650 
2663 
2054 
2055 
2685 
2666 
2667 
2668 
2689 
2C&A 
2C6R 


01 00 


F4 2A 


2C 
EB 
29 


BB 


20 


Is ır 


39 SC 


33 16 


SET 7,C 
LD B,0 
PUSH BE 
LD HL,1 
BIT &,6 


JR NZ,*#2C2D 


LDL,5 

EX DE,HL 
RST GETNXT 
LD H,$FF 
CALL $2ACC 
JP C,$2A20 
POP HL 
PUSH BC 


INC H 

PUSH HL 

LD H,B 

LD L,C 
CALL $2AF4 
EX DE,HL 
RST SETAKT 
Ep *,° 

JR Z,$2C2E 
Ep: *}* 

JR NZ,$2005 
RST SETNXT 
POP BC 

LD A,C 

LD L,B 

LD H,0 

INC HL 

INE HL 

ADD HL,HL 
ADD HL,DE 


JP C,$1Fi15 
PUSH DE 
PUSH BC 
PUSH HL 

LD B,H 

Lu &,L 


LD HL,(ELINE) 


DEC HL 
CALL $1655 
INC HL 
LD (HL),A 


POF BC 
DEC BC 
DEC BE 
DEC BE 
INC HL 
LD CHLI,C 
INC HL 


no EEE a NEE NEE a EEE ae NEE an 


"EU NEE a NEE u BE u En TEE u NE 


-—.: (En TEE ae TEE 


_—-— EEE u TEE a NEE ae TEE nn 


BIT 7 BESCHREIBUNGSBYTE SETZEN 
DIMENSIONSZÄHLER = OÖ 
ZWISCHENSPEICHERN 
ELEMENTGRÖSSE I FÜR STRINGS 
SPRUNG, WENN ES EIN 
STRINGARRAY IST 

SONST NUMERISCH: GRÖSSE = 5 
DIE ELEMENTGERÖSSE NACH DE 
CHADD +1, NÄCHSTES ZEICHEN 
LIMIT FüR ARRAYGROSSE SETZEN 
EIN ARRAYFARAMETER HOLEN 
ERROR, WENN ZU GROSS 
DIMENSION HOLEN 

BEI JEDER SCHLEIFE DEN 
PARAMETER ZWISCHENSFEICHERN 
DIMENSION +1 

UND WIEDER AUF DEN STACK 
PARAMETER NACH HL KOPIEREN 


GESAMTZAHL DER BYTES BERECHNEN 
(DE * HL) UND WIEDER NACH DE 
AKTUELLES ZEICHEN HOLEN 

KOMMA FÜR WEITERE FARAMETER ? 
JA 

ES MUSS EINE KLAMMER SEIN 
WENN NICHT: ERROR 

CHADD +1 

DIMENSIONSZÄHLER HOLEN 
BESCHREIBUNGSBYTE NACH A 
DIMENSION NACH HL 

BRINGEN 

DIMENSION +2 


DANN MIT 2 MULTIPLIZIEREN 

UND DIE BERECHNETE ARRAYGROSSE 
ADDIEREN, UM DEN INSGESAMT NOT- 
WENDIGEN SPEICHERBEDARF ZU ER- 
HALTEN (=ARRAYLÄNGE GESAMT) 
ARRAY ZU GROSS: ERROR 

ANZAHL DER ELEMENTE, 
BESCHREIBUNGSBYTE UND 
GESAMTGRÖSSE RETTEN 
GESAMTGROSSE NACH BC 

KOPIEREN 

ENDE DES VARIABLENBEREICHS 
BESTIMMEN (#80 PLATZ) 

DEN SPEICHERBEREICH FREIMACHEN 
AUF ERSTE NEUE POSITION SETZEN 
DEN MARKIERTEN BUCHSTABEN DES 
NAMENS EINSCHREIBEN 
GESAMTLÄNGE HOLEN UND 


3 SUBTRAHIEREN 


LÄNGE LOW UND 
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£3 1) MD 


FS 


ıB 


4 


00 


; 
; 
D 


LD (HL) ,B 
POP BE 

LD A,B 

INC HL 

LD (HLI,A 
LD H,D 

LD L,E 

DEC DE 

LD (HL) ,D 
BIT 6,6 

IR 2;82R76 
£5 EA,’ * 
POP EC 
LDDR 

POP BL 

LD {HLI,B 
DEC HL 

LD {HL),E 
DEC HL 

DEC A 

IR NZ,$2C7F 
RET 


LANGE HIGH EINTRÄGEN 
DIMENSIDNSZÄHLER HOLEN 
UND NACH A EDPIEREN 


DIMENSION EINTRAGEN 

HL AUF LETZTEN PLATZ 
DES ARRAYS SETZEN 

DE AUF VORLETZTEN 
LETZIER PLATZ MIT 8 
DDER, WENN STRINGARRAY, 


MIT LEERZEICHEN BESCHREIBEN 
ELEMENTZAHL HOLEN UND 

ARRAY +1 PLATZ LESCHEN 

EIN BIMENSINNSEYTE HOLEN 
UND DIESES, ERST HIGH, 


DANN LOW, EINSCHREIBEN 


DIMENSIDNSZÄHLER -1 
NOCH WAS EINZUTRAGEN 


SUBROUTINE ZUM PRÜFEN AUF ALFHANLMERISCH. CARRY IST 
GESETZT BEI BUCHSTABEN UND ZIFFERN 


GALL ZIFFER 
ECF 
RET EC 


AUF ZIFFERN PRÜFEN 


BEI ZIFFER RETURN 


SUBROUTINE üBERPRÜFT AUF BUCHSTABEN. CARRY IST BEI 


BUCHSTABEN GESETZT 


EP "RA 
CEF 
RET NC 
EP £5B 
RET GC 
GP’ 
EEcF 
RET NG 
CP $7B 
RET 


GROSSEUCHSTABEN GEHEN VON 
+41 BIS 


$SB (=7 +1) 


KLEINBUCHSTABEN ENTSFRECHEND 
VON 51 BIS 


#7B (=z#+1) 


SUERDUTINE ZUM WANDELN VON DEZIMALZAHLEN DDER, MIT 
DEM ZUSATZ BIN’, BINÄRZAHLEN IN FLOATINGFOINTZÄHLEN, 
DIE DANN ALS LETZTES ERGEBNIS AUF DEM CALC.-STACK 


ABGELEGT KERDEN 


EZFLO CP $04 


JR NZ,$2CB8 
LD DE,D 


BINFLO RST BETNXT 


SUB "1' 
ADC OÖ 


JR NZ,$2CB3 


= TEE u TE a En TE 


IST DAS ZEICHEN BIN’ ? 

NEIN 

ERGEBNIS MIT O0 VORBESETZEN 
CHADD +1, NÄCHSTES ZEICHEN 
EINE i SUBTRAHIEREN: 1 ERGIBT 
NACH DER ABDITIGN EINE Ö MIT 
MIT CARRY GELÖSCHT, EINE Ö 
ERGIET Ö, ABER CARRY GESETZT 
BEI ALLEN ANDEREN ZEICHEN 


iE 
BA 


2D 


2D 


zD 
ic 


“En En 


.. (18 (08 


EX DE,HL 
CcEF 


ADE HL,HL 
JP C,$Z1AD 


EX DE,HL 
IR BINFLO 


BEI DEZIMALZAHLEN ERST 


BERÜCKSICHTIGEN 


EP’. 
JR Z,$2CCR 
CALL #2D3B 


Dr, 
JR NZ,$2CEB 
RST GETNXT 
CALL ZIFFER 
IR C,$2CEB 
JR $2C0D5 


; 
; 
” 
; 
3 
. 
! 
5 
” 
; 
5 
; 


BISHERIGES ERGEBNIS NACH HL 
CARRY INVERTIEREN: FüR 1 IST 
CARRY JETZT BESETZT, D NICHT 
VORHERIGES ERGEBNIS 1 STELLE 
NACH LINKS SCHIEBEN UND CARRY 
IN BIT ö ADDIEREN 

?® 63335: ERROR 

ERGEBNIS ZWISCHENSPEICHERN 
UND WEITERE ZEICHEN WANDELEN 


ERGEBNIS NACH BC KOPIEREN 
UND AUF DEM STACK ABLEGEN 


DEN GANZZAHLIGEN TEIL 


ERSTES ZEICHEN = DEZIMALPUNKT? 
KEIN GANZANTEIL 

TEIL VOR DEM PUNET ALS LETZTEN 
WERT AUF DEN CALT.-STACK 

FOLGT NACHKOMMATEIL ? 

NEIN: EXPONENT UNTERSUCHEN 
CHADD +1, NÄCHSTES ZEICHEN 

IST ES EINE ZIFFER ? 

NEIN: EXPONENT UNTERSUCHEN 
NACHEODMMATEIL BEARBEITEN 


ZAHLEN, DIE MIT PUNKT ANFANGEN, BEARBEITEN 


RST GETNKT 
CALL ZIFFER 
JP C,$1CBA 
RST CALRUF 
„BYT $AO 
„BYT $38 


RST CALRUF 
„BYT $Al 
.BYT &C0 
‚BYT 02 
‚BYT #28 


RST SETAKT 
CALL $2D22 


JR C,$2CEB 
RST CALRUF 
.BYT $EO 
‚BYT £A4 
.BYT $05 


.BYT $C0 
.„EYT #04 


a u TE 


u Eu EEE a TE rn BE an 


CHADD +1, NÄCHSTES ZEICHEN 
IST ES EINE ZAHL ? 

NEIN: ERROR 

CALCULATDORAUFRUF 

NULL FüR DIE ZAHLEN OHNE 
GANZZAHLIGEN ANTEIL SPEICHERN 


1 IM CALC.-STACK SPEICHERN 
NACH MEMÖ KOFIEREN 

DIE i IM CALC.-STACK LOSCHEN 
ENDE {DER LETZTE WERT IM STACK 
IST JETZT EINE OÖ (OHNE TEIL 
VOR DEM KOMMA) DDER DER GANZ- 
ZAHLIGE ANTEIL) 

AKTUELLES ZEICHEN LADEN UND 
AUF ZIFFER TESTEN UND DANN 
AUF CALG.-STACK SFEICHERN 
NICHT: EXFONENT UNTERSUCHEN 
CALCULATOR AUFRUFEN 

MEMO HOLEN 

ZEHN AUF STACK SFEICHERN 
MEMO/1O BILDEN: I WIRD .1, 
DIES ZU „Ol USW 

ERGEBNIS NACH MEMO ZURÜCK 
EINGELESENE ZAHL MIT {MEMO) 
MULTIFLIZIEREN, ALSD STELLEN- 
WERT NACH DEM KDMMA 


165 


2CE& 
2CE7 
2CE8B 
2CE? 
2CEB 
2CEB 
2CEB 
2CEB 
2CED 
2CEF 
2CFi 
2CF2 
2CF2 
2CF4 
2CF5 
2CF7 
2CF? 
2CFB 
2CFD 
2CFE 
2CcFF 
2002 
2004 
2D05 
zD08 
2DüB 
2DOE 
2DOF 
2Di16 
2D12 
2D14 
2Di& 
2D18 
2DiB 
2Di8 
2DiB 
2DiB 
2DiB 
2D1D 
2DIE 
2020 
2D21 
2D22 
2D22 
2D22 
2D22 
2D22 
2D25 
2D25 
2D28 
2028 
2028 
20283 
2D28 
2D29 
2D2B 
2D2B 
2D2B 
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ar 
06 


EF 


iB 


00 


2D 


2D 


2D 


a Ta Tan N a. —— u. 


u TEE m 


„BYT $0F ; ZUM BISHERIGEN ERGEBNIS 

‚BYT $38 ; ADDIEREN (LETZTER WERT), ENDE 
RST GETNXT ; CHADD +1 

JR #2CDA ; WEITER IN DER SCHLEIFE 


EXFONENT UNTERSUCHEN 


Ep "FE ı FOLBT EIN 'E‘ 

JR 2,$2CF2 

CP 'e ‚ DDER EIN ‘e’ FÜR EXPONENT ? 
RET NZ ; NEIN 

LD B,$FF ; B IST VORZEICHENFLAG: $FF= '+' 
RST GETNXT ‚ CHADD +1, NÄCHSTES ZEICHEN 
Ep "ae ‚ POSITIVER EXPONENT ? 

JR 2,$2CFE JA 

CP °’-’ ‚ NEGATIVER EXPONENT ? 

JR NZ,$2CFF ; NEIN: KEINE ANGABE: '+' 

INC B ; B = 0 FÜR NEGATIV 

RST BETNXT ; CHADD +1, NÄCHSTES ZEICHEN 
CALL ZIFFER ; FOLGT DEZIMALZAHL ? 

IR C,$2CCF ; NEIN: ERROR 

PUSH BC ; VORZEICHENFLAG RETTEN 

CALL $2D3B ; EXPONENT AUF STACK SPEICHERN 
CALL $2DD5 ; EXPONENT NACH RES A HOLEN 
POP EC ; VORZEICHENFLAG ZURÜCKHOLEN 
IP C,$31AD ; EXPONENT > 255: ERROR 

AND A ‚ EXPONENT > 127 ? 

IP M,$31AD ; JA: ERROR 

INC B ; NEGATIVER EXPONENT ? 

JR 2,$2D18 ; NEIN 

NES ; JA: 2-KOMPLEMENT BILDEN 

JP $2D4F ; EXPONENT ZUR ZAHL HINZUFÜGEN 


SUERUOUTINE ZUM UNTERSUCHEN AUF ZIFFERN. BEI ZIFFERN 
WIRD DAS CARRYFLAG GESETZT 


IFFER CP 0’ 


RETC 
Br.'3° ; ASCIIWERT VON 9° #1 


SUBROUTINE ZUM ABLEGEN EINES DIGITS {ZIFFER} AUF 
DEM CALC.-STACK ALS LETZTER WERT 


CALL ZIFFER ; WENN KEINE ZIFFER, 
RETC ; DANN DIREKT RETURN 
SUB '0’ ; $30 FÜR WANDLUNG SUBTRAHIEREN 


SUBROUTINE LEGT BINÄRZAHL IN A ALS FLOATINGPOINT- 
ZAHL AUF DEM CALC.-STACK ALS LETZTEN WERT AB 


LD C,A ; ZAHL NACH C KOPIEREN 
LD B,O ; UND B ZU NULL SETZEN 


SUBROUTINE ZUM ABLEGEN DER INTEGERZAHL IN BC AUF DEM 
CALC.-STACK ALS LETZTER WERT IN FLOATINSPOINTFORMAT. 


FD 21 3A SC 


ED Ba 2A 


CD 22 2D 


CD 74 90 
18 Fi 


07 
OF 


30 02 

2F 

3C 

FS 

21 92 St 
CD OB 35 


=. u. 0 a a 


a NE u Eee 


_— ME EEE 


DAS 1. UND 5. BYTE SIND IMMER öÖ, DAS 2. GIBT DAS 

= POSITIV, $FF = NEGATIV. DAS 3. 
BYTE IST DAS LOWBYTE UND DAS 4. DAS HIGHBYTE. DIE 
ABLAGE ERFOLGT IM 2-KOMPLEMENT 


VORZEICHEN AN: 0 


LD IY,ERRNR 
XOR A 

LD E,A 

LD D,E 
iD 

LD B,A 
CALL $2AB& 
RST CALRUF 
„BYT $38 
AND A 

RET 


wo. NE EEE u Eu Er 


IY NOCH EINMAL INITIALISIEREN 
REG A = 0 

REG E EBENFALLS FüR POSITIV 
LOREYTE NACH D 

HIGHBYTE NACH C 

REEGEE = 0 

DIE ZAHL AUF DEM STACK ABLEGEN 
DER CALCULATORAUFRUF DIENT NUR 
ZUM SETZEN VON HL AUF STKEND-5 
CARRY LÖSCHEN 


SUBROUTINE ZUM EINLESEN GANZZAHLIGER DEZIMALZAHLEN 
ALS LETZTER WERT AUF DEM CALC.-STACK. AUFRUF ERFOLGT 
Z«. B, BEIM EINLESEN EINER DEZIMAL AUS EINER BASICZEILE 


(SIEHE DEZFLD) 


PUSH AF 
RST CALRUF 
«BYT #£AO 
:BYT #38 
POF AF 
CALL $2D22 


RET C 
RST CALRUF 
.„BYT $01 


BYT $A4 
.BYT $04 
„BYT $OFf 
‚.BYT #38 
CALL #74 
JR #2D40 


..: EEE u EEE EEE a TEE a TEE a TEE 


ARITHMETISCHE ROUTINEN 


ERSTE ZIFFER RETTEN 
CALCULATOR AUFRUFEN, UM 

DEN LETZTEN WERT MIT 0 
VORZUBESETZEN 

ERSTE ZIFFER HOLEN 

DIE ZIFFER AUF DEM CALC.-STACK 
ALS LETZTER WERT ABLEGEN 
WENN KEINE ZIFFER: RETURN 
CALCULATOR AUFRUFEN 
TAUSCHEN: ZIFFER JETZT VOR- 
LETZTER WERT, DAMIT DAS VOR- 
HERIGE ERGEBNIS MIT 10 
MULTIPLIZIERT WERDEN KANN 

10 AUF CALC.-STACK 
VORHERIGES ERGEBNIS#1DO 

ZUR ZIFFER ADDIEREN 

ENDE 

DAS NÄCHSTE ZEICHEN EINLESEN 
UND WANDELN 


WANDLUNG VON DEZIMALZAHLEN MIT MANTISSE/EXPONENT- 
IN EINE FLOATINGFOINTZAHL, X STEHT 
ALS LETZTER WERT BEREITS AUF DEM CALC.-STACK 


DARSTELLUNG (xEn) 


RLEA 
RRCA 


JR NC,#2D55 
CPL 

INC A 

PUSH AF 

LD HL,MEMBOT 
CALL $350B 


—-— Me ME a a Er 


FüR VORZEICHENTEST BIT? VON A 
INS CARRY SCHIEBEN, OHNE A ZU 
VERÄNDERN 

BEI PFOSITVEM EXFPONENT 

NEG. EXP.: 2-KOMPLEMENT VON A 
BILDEN OHNE CARRY ZU VERÄNDERN 
A ZWISCHENSPEICHERN 
VORZEICHENFLAG IM ERSTEN BYTE 
VON MEMO BILDEN: O=POSITIV, 
i=NEGATIV 
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DE 


28 


OÖ 


EXSCHL 


EXDIV 
EXGETI 


; SUBRBUTINE ZUM HOLEN 


me Een 


RST CALRUF 
‚.‚BYT #A4 
‚BYT $38 
POF AF 

SRL A 

JR NC,#2D71 
PUSH AF 

RST CALRUF 


‚BYT &C1 
.BYT -$EO 
«BYT 00 
.„BYT #04 
‚BYT #04 
‚BYT #35 
‚BYT #02 
.BYT $05 
«BYT $E1 
‚BYT $38 
FOP AF 

JR Z,#2D7B 
FUSH AF 
RST CALRUF 
«BYT #231 
‚BYT #04 
.BYT $38 
POF AF 

JR EXSCHL 


RST CALRUF 
«BYT #02 
.EYT $38 
RET 


INC HL 
LD C,CHL) 


INC HL 
LD A,tHL) 
XoR £ 
SUB C 


LD E,A 
INC HL 
LD A,cHL) 
ADC C 
XOR C 

LD D,A 
RET 


DEM CALC,-STACK 


LD Co 


X STEHT IM CALC.-STACK 
X,10, ZAHL 10 SPEICHERN 

ENDE 

EXPONENT HOLEN UND DIE EIN- 
2ELNEN BITS INS CARRY SCHIEBEN 
BIT WAR 0: REG A AUF 0 TESTEN 
RESTLICHER EXPONENTWERT RETTEN 
X’,10*2°M, M= 0..5, IM STACK, 
WOBEI X‘ EIN ZWISCHENWERT DER 
MANTISSE BEI DEN MULTIPLIKA- 
TIONEN MIT 10°N BEDEUTET 
10%°2*M NACH MEMi KOPIEREN 
x',t0*2*M,V(ORZEICHEN? AUS MEMO 
x’,10*2°M, V=NEBSATIV (1): 
SPRUNG NACH EXDIV 

x'#10*2*M, MULTIPLIKATION 
X’{NEU), IMMER SPRUNG 

NACH EXBETI 

x'/t10*°2*M), DIVISION 

X (NEU) ,LO*2"M, MEMO HOLEN 
ENDE 

RESTEXPONENT UND ZEROFLAG 
SPRUNG, WENN RESTEXPDONENT 0 
RESTEXPONENT RETTEN 

K',10*%2°M 

X’ ,10*2*M,10*2*M, VERDOPPELN 
X’,10*2*{M+1), MULTIPLIZIEREN 
ERGIBT X’ ,10*2°*M FüR SCHLEIFE 
RESTEXPONENT ZURÜCKHOLEN UND 
IN DER SCHLEIFE WEITER 


X’ ,10*2*M 
X=X#10“N, LÖSCHEN 
X, ENDE 


EINER INTEGERZAHL VOM CALG.-STÄCK 


—_—— EEE a TE ae EEE ae A 


s 


ADRESSIERT JETZT DAS VOR- 
ZEICHEN, DIESES NACH EC LADEN 
#FF BEDEUTET NEGATIVE ZAHL 
LOWBYTE ADRESSIEREN 

LOWBYTE LADEN UND DAS 
1-KOMFPLEMENT BILDEN, WENN NEE, 
NEG.: 1 ADDIEREN: Z-KOMPLEMENT 
BILDEN 

LOWBYTE NACH E 

AUF HIEHTBYTE ZEIGEN 

HIGHTEYTE LADEN 

UND, WENN NEGATIV, DAS 
2-KOMFLEMENT BILDEN 

HISHRBYTE NACH D 


SUBROUTINE ZUM ABSPEICHERN EINER INTEGERZAHL AUF 
GEGENSTÜCK ZU DBIGER ROUTINE) 


EINSTIEG FüR FOSITIVE ZAHLEN 


20 


00 


05 


7F 2D 


DI EEE 7 zer 


BE TEE u TA u 


PUSH HL 


LD CHLI,O 
INC HL 

LD (HL) ,E 
INC HL 

iD A,E 
XOR C 

SUB C 

LD (HLI,A 
INC HL 

LD A,D 
ADC C 

XOR C 

LD (HL),A 
INC HL 

LD {HLI,O 
POP HL 
RET 


RST CALRUF 
.BYT $38 
LD A,(HL) 
AND A 

JR Z,$2DAD 


RST CALRUF 
„BYT $A2 
„BYT $0F 
„BYT $27 
„BYT $38 
RST CALRUF 
„BYT $02 
‚BYT $38 
PUSH HL 
PUSH DE 

EX DE,HL 
LD B,CHL) 
CALL $2D7F 
XOR A 

SUB B 


515 7,6 
LD B,D 
LD C,E 
LD A,E 
POP DE 
POP HL 
RET 


u NEE a TEE a En 


—.—_ u EEE a EEE TEE a TEE u 


_—-—— 0.1 EEE Eu TEE NE EEE ae 


EINSTIEG MIT VORZEICHEN IN C: 
$FF = NEGATIV, 0 = POSITIV 
ERSTES BYTE LÖSCHEN 

DAS VORZEICHEN IN 

DAS ZWEITE BYTE SCHREIBEN 
FüR NEGATIVE ZAHLEN WIRD AS 
2-KOMPLEMENT GEEILDET 

ZUERST FüR DAS LOWBYTE 


LONBYTE SPEICHERN 


HIGHBYTE BEARBEITEN 


UND SPEICHERN 


3. BYTE LÖSCHEN 
ZEIGER AUF ERSTES BYTE ZURÜCK 


SUBROUTINE ZUM WANDELN EINER FLOATINGFOINTZAHL IN 
EINE INTEGERZAHL UND ÜBERTRAGEN DES ERGEBNISSES IN EC 


HL AUF (STKENDI-5 SETZEN 
(=1. BYTE LETZTER WERT) 
EXPONENT LADEN 

FALLS DIESER NULL IST, IST ES 
BEREITS EINE INTEGERZAHL 
SONST FF-ZAHL WANDELN: 
CALCULATORAUFRUF 

.3 AUF CALC.-STACK 
ADDIEREN 

INTEGER BILDEN: 
-b5936{X{89536 


ERGEBNIS LöSCHEN (ES WIRD NUR 
EIN ZEIGER VERÄNDERT) 

DIE BEIDEN ZEIGER IN 

DEN CALC,-STACK RETTEN 

HL ZEIGT AUF DIE ZAHL 
EXPONENT {MUSS DO SEIN) LADEN 
VORZEICHEN + 2 BYTES HOLEN 
RES A UND CARRY LÖSCHEN 
CARRY WIRD GESETZT (=INT, ZU 
GROSS), WENN EXFONENT ©>0 
ZEROFLG SETZEN FüR POSITIV 
HISEHTBYTE NACH E 

LOHBYTE NACH C 

HIEHTBYTE ZUSÄTZLICH IN A 
DIE 2 ZEIGER IN DEN CALC.- 
STACK ZURÜCKHDLEN 


SUBROUTINE ZUM BERECHNEN VON LOGS(2”A). A ENTHÄLT DEN 
EXPONENT EINER FLOATINGFDINTZAHL. DIE BERECHNUNG DIENT 
ZUM BESTIMMEN DER VORKOMMASTELLEN EINER AUSZUGEBENDEN 
DEZIMALZAHL DDER BER AUF DEN DEZIMALFUNKT FOLGENDEN 

NULLEN 
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2DE1 
zDEi 
2DE2 
2DC3 
2DC4 
2DC5 
2DCd 
2DC7 
2DC8B 
2DECB 
2DCCG 
2DCD 
2DCE 
2DEF 
2DDO 
2DDi 
2DD2 
2DD3 
2DD4 
2DD5 
2DD5 
2DD5 
2DDS 
2DD5 
2DD5 
2DD8B 
2DD8 
2DD? 
2DDA 
2DDB 
2DDE 
2DDE 
2DDF 
2DED 
2DEI 
2DE2 
2DES 
2DE3 
2DES 
2DE3 
2DE3 
2DE& 
2DES 
2DE& 
2DE7 
2DEB 
2DE? 
2DEA 
2DEB 
2DEC 
2DED 
2DEE 
2DFO 
2DFi 
2DrF2 
2DF2 
2DF2 
2DF2 
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B& 2A 


A2 2D 


05 


; 
L06S2A 


Eu TE ae 


A ar an 


mE WER en 


LD D,A 
RLA 

SBC A 

LD E,A 

LD C,A 

XOR A 

LD B,A 
CALL $2AB6 
RST CALRUF 
„BYT $34 
„BYT $EF 


’ 
‚BYT $1A,$20,$94,$85 ; 


«BYT $04 
‚BYT #27 
‚BYT $38 


CALL *$2DA2 


RETC 

PUSH AF 
DEC B 

INC B 

JR Z,$2DE1 
POP AF 

SCF 

RET 

POF AF 

RET 


RST CALRUF 
„BYT $31 
‚BYT $36 
„BYT 800 
‚BYT $0B 
‚BYT $31 
‚BYT $37 
‚EYT $00 
‚BYT $0D 
„BYT $02 
.BYT $38 
LD A,’0' 
RST PRTOUT 
RET 


} 
; 
} 
; 
; 
; 
} 
j 
; 
; 


A WIRD SO BEARBEITET, DASS AUF 
DEM CALC.-STACK, WENN A 
POSITIV, $00,$00,A,$00,$00 
ODER, WENN NEGATIV, 
$00,$FF,A,$FF,$00, ABGELEGT 
WIRD. DIE WERTE WERDEN IN DIE 
ENTSPRECHENDEN REBISTER Für 
DEN SUBROUTINENAUFRUF GELADEN 
A, 

A, DATEN SPEICHERN: 


; LOS2 ZUR BASIS 10 


. 
s 
3 
3 


| TEE u 


A,L062 


A*LDG2 (=L06{2”A)) 
INTEGER BILDEN 
INT(LOS(2”A)) 


FLOATINGPOINTZAHL IN EINE INTEGERZAHL VON EINEM BYTE 
WANDELN, ERGEENIS IN REG A. KENN DAS ERGEBNIS >255 
IST, ERFOLGT EINE ERRORMELDUNG 


FLOATINGPOINTZAHL ALS INTEGER 
NACH BC BRINGEN 

ERGEBNIS ZU GROSS (>65536) 
ERGEBNIS ZWISCHENSFEICHERN 
HIGSHBEYTE MUSS NULL SEIN 


JA: ERGEBNIS <255 
SONST ERROR: ERGEBNIS ZURÜCK- 
HOLEN UND DAS CARRYFLAS SETZEN 


;ı ERGEENIS ZURÜCK IN A, RETURN 


MIT CARRY GELGSCHT: KEIN ERROR 


SUBROUTINE ZUM AUSGEBEN EINER FLOATINGPOINTZAHL DURCH 
"PRINT'’- OBER ’STRF#'-BEFEHL 


X, 

X,X, VERDOPPELN 

X, X40? 

X, JA: X IST NEGATIV: 
SPRUNG NACH FPNEGBA 
X,X, VERDOPPELN 

4; 9307 

X, JA: SPRUNG NACH 
FPPOSI 

- LÖSCHEN 

ENDE 


DIE ZAHL WAR NULL 
DIESE AUSGEBEN UND FERTIG 


FüR NEGATIVE ZAHLEN ERST EIN MINUSZEICHEN AUSGEBEN 
UND DANN ABS(X) BILDEN, SODASS DIE ZAHL IM WEITEREN 
WIE EINE POSITIVE BEHANDELT WERDEN KANN 


2DF2 
2DF2 
2DF3 
2DF4 
2DF& 
2DF7 
2DF8 
2DFB 
2DF8 
2DF8 
2DF9 
2DFA 
2DFB 
2DFC 
2DFD 
2DFE 
2DFF 
2E00 
2EQ| 
2E02 
2E03 
2E04 
2EDS 
2E05 
2ED7 
2E08 
2E09 
2EQA 
ZEOB 
2EOT 
2EOD 
2EÖF 
2E12 
2E14 
2E15 
2E1& 
2E1B8 
2E19 
2E1B 
2EIC 
ZEIE 
2EiF 
2E20 
2E21 
2E22 
2E24 
2E24 
2E24 
2E24 
2E25 
2E26 
2E27 
2E28 
2E2A 
2E2A 
2E2A 
2E2D 
2E2E 
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TE 


Ci 2D 


AC 5C 


j 
FFNEGA „BYT $2A 


} 


ıBYT #28 
LD A,'-' 
RST PRTDUT 
RST CALRUF 


} 
; 
» 
’ 
; 
’ 


ABS{X) BILDEN 
ENDE 
MINUSZEICHEN 
AUSGEBEN 


; EALCULATOR WIEDER AUFRUFEN 


X IST IM FOLGENDEN ABS(X) 


; 
FPPOSI ‚BYT $A0 


- 
s 
“ 
) 


‚„BYT $C3 
„BYT $C4 
„BYT $C5 
„BYT $02 
„BYT 838 
EXX 

PUSH HL 
EXX 

RST CALRUF 
„BYT $31 
‚BYT $27 
„BYT $C2 
‚BYT $03 
„BYT $E2 
„BYT $01 
„BYT $C2 
‚BYT $02 
„BEYT $38 
LD A,{HL) 
AND A 

JR NZ,$2E5% 
CALL $2D7F 
LD B,16 

LD A,D 

AND A 

JR NZ,$2E1E 
OR E 

JR 2,$2E24 
LD D,E 

LD B,8 
PUSH DE 
EXX 

POP DE 

EXX 

JR $2E7B 


—— We NE ae NEE ae EEE ae 


a EEE u EEE a TE a TEE a NE u TÜR na 


X,0, NULL AUF DEN STACK 

MEMZ, 

MEM4 UND 

MEMS MIT 0 BESCHREIBEN 

X, NULL WIEDER ENTFERNEN 

ENDE 

HL‘, DAS DIE CALCULATOROFFSETS 
ENTHÄLT, ZWISCHENSPEICHERN 


CALCULATORAUFRUF 
X, VERDOPPELN 
INT(O=1 

I NACH MEM2 SPEICHERN 
I=F, SUBTRAHIEREN 
‚I, MEM2 HOLEN 
‚F, TAUSCHEN 
‚F, IN MEM2 SPEICHERN 
I, F LÖSCHEN 
ENDE 

TEST, OB I 65536 IST 


’ 
, 
’ 
’ 


x 
X 
X 
X 
X 
F 
I 
I 


NEIN 

I NACH DE LADEN 

ZÄHLER FüR 1& BITS 
HIGHBYTE VON I AUF 0 
TESTEN 

NEIN: >255 

IST I SANZ NULL? 

JA: NUR NACHKOMMASTELLEN 
LOWBEYTE NACH D KOPIEREN 
ZÄHLER FüR B BITS 

DE ÜBER DEN STACK 

NACH 

DE’ KOPIEREN 

REGS WIEDER NORMAL 


BEARBEITUNG, WENN NUR EIN NACHKOMMATEIL VORHANDEN 


RST CALRUF 
‚BYT $E2 
„BYT $38 
LD A,tHL) 
SUB $7E 


CALL LDB2A 
LD D,A 
LD A,($5CAC) 


—— WE u TEE u TE a TE u 


I(=0), 
I,F, MEM2 HOLEN 

ENDE 

EXPONENTENBYTE NACH A LADEN 
UM DEN ECHTEN EXPONENTEN ZU 
ERHALTEN, MUSS $7E (=126) 
SUBTRAHIERT WERDEN 

M=A=ABS INT(LOG(2*A)) 

M NACH D KOPIEREN 

2. BYTE VON MEMS5 LADEN 
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m m mm 


mmmmnmm m 


[no u 39% u 176 Tu 156 05 176 Buy 16 uug 05 Ber 26 Bu 1% Bu 26 rJ 
ad A a ce ed 


TI DD U in 


At 


AF 


Al 


AR 


GF 


30 
ic 
13 
Cl 


07 


Ac 


Ip 


rJ m 


BA 


80 


Sc 


zD 


sc 


sc 


Eu ME 


eo. ne TEE 


SUB D 

LD ($5CAC) ‚A 
LD A,D 

CALL $2D4F 
RST CALRUF 
„BYT $31 
„BYT $27 
‚BYT $C1 
‚BYT $03 
‚BYT $Ei 
„BYT $38 
CALL $2DD5 
PUSH HL 

LD ($5CAi),A 
DEC A 

RLA 

Sec A 

INC A 

LD HL,$5CAB 
LD (HLI,A 
INC HL 

ADD (HL) 

LD CHL),A 
POF HL 

JP $2ECF 


DAVON M SUBTRAHIEREN UND 
ZURÜCKSCHREIBEN 

M NACH A KOPIEREN 

Y=F*10”M AUF DEN STACK BRINGEN 


‚ VERDOPPELN 
NTEYI=J, 
‚ J NACH MEMi SPEICHERN 


‚I, MEMi LADEN 
‚J, ENDE 


ZEIGER AUF (Y-J) RETTEN 
ADRESSE 1. BYTE MEM3 

J (IN A) 50 BEARBEITEN, DASS 
EINE NULL ERHALTEN BLEIET, JEDE 
ANDERE ZAHL JEDOCH 1 ERGIBT 
{DIENT ALS ZÄHLER) 

ADRESSE i, BYTE VON MEMS 
ZÄHLER EINSCHREIBEN 

DIESE ZAHL ZU DEN AUSZUGE- 

; BEN STELLEN VOR DEM KOMMA 

; ADDIEREN 

; ZEIGER AUF (Y-J) ZURÜCKHOLEN 


—-— 000 a NE a TE a TEE ee TEE ae TE er TEE u TE a A u 


-. 


ZAHLEN, DIE GRSSSER ALS 2*27 SIND, WERDEN SO BEARBEI- 
TET, DASS 8 STELLEN VOR DEM KOMMA AUSSEGEBEN WERDEN 


SUB $80 

CP 28 

JR C,$2E6F 
CALL LOB2A 
SUB 7 

LD B,A 

LD HL,$5CAC 
ADD (HL) 
LE CHLI,A 
LD A,B 

NES 

CALL $2D4F 
JR $2E01 


INTEGERTEIL VON X 
SFEICHERN 


EX DE,HL 
CALL #2FEA 


ExXX 
SET 7,D 


LD A,L 
EXX 

SUB $80 
LD B,A 


IN 


DEN ECHTEN EXPONENT BERECHNEN 
KLEINER ALS 28 ? 

IA 

M IN A BERECHNEN 

; M-7 BILDEN 

; NACH B KOPIEREN 

; M-7 ZUM 2. BYTE VON MEMS 

h 


no TE a ar 


; ADDIEREN = ANZAHL DER 

; AUSZUGEBENDEN VORKOMMASTELLEN 
; IMIT 

; 10°-(M-7) MULTIPLIZIEREN FÜR 
; DIE AUSGABE 

; MIT DER STELLENMÄSSIG KORRI- 
; SIERTEN ZAHL IN DIE SCHLEIFE 
; ZURÜCKSPRINGEN 


DEN AUSGÄABEFUFFER MEMS UND MEM4 


; DE ZEIST AUF I, HL AUF F 

; MANTISSE VON I NACH DE’,DE 
BRINGEN 

DE’ HOLEN 

RICHTIGES NUMERISCHES ERGEBNIS 
IN D’ ANMERKEN 

EXPONENT VON I NACH A 

AUF NORMALE REES UMSCHALTEN 
RICHTIGEN EXPONENT BERECHNEN 
ERGIET DIE BENSTIETE BITZAHL 


ee ee BE a 


2E7B 


2E7B CB 23 SLAE ; DIE MANTISSE VON I WIRD WIRD 
zZEID KB 12 RL D ; BITWEISE NACH LINKS IN MEM4 
ZE/F 09 EXX ı ROTIERT, DABEI WIRD JEDESMAL 
2E80O CB 13 RLE ; EINE DEZIMALKORREKTUR DURCH- 
ZEBZ EB: 32 RLD GEFÜHRT. DIE 4 BYTES VON I 
2EB4 D9 EXX ; SIND IN DE’ UND DE ENTHALTEN 
2E85 21 AA SC LD HL,$SCAA ; 5. BYTE VON MEM4 

2E88 0E 95 LD 6,9 : 5 BYTES MÜSSEN DEZIMAL 

2E8A ; KORRIGIERT WERDEN 

ZEBA 7E LD A, (HL) ; EIN BYTE VON MEM4 HOLEN 

2E8BB BF ADC A s DURCH ADDITION EIN BIT NACH 
2EBC ; LINKS SCHIEBEN UND DAS CARRY 
2EBEC ; IN BIT O0 ADDIEREN 

ZEBE 27 DAA ; DEZIMALKORREKTUR 

ZEBD 77 LD (HL),A ı BYTE ZURÜCKSCHREIBEN 

2ESE 2EB DEC HL s ZEIBER =-1 

2ESF G6D DEC GC ; ZÄHLER DER BYTES -1 

2E90 20 FB JR NZ,#2EBA ; 5 BYTES NOCH NICHT FERTIG 
ZENZ2 10: E27 DJNZ $2E7B : NOCH NICHT ALLE BITS VON I 
2E94 ; BEHANDELT 

2694 - 

2E94 s DAS ERGEBNIS LIEGT NUNMEHR GEPACKT IN MEM4 VOR. DIESES 
2E94 ı WIRD JETZT AUF INSGESAMT 9 BYTES, FRO STELLE EIN BYTE, 
2E94 ı AUFGETEILT NACH MEMS3 UND MEM4 

2E94 : 

2E94 AF XOR A ; REG A LÖSCHEN 

2E95 21 A& St LD HL,$#5CA& ; 1; BYTE NEM 

2EFB 11 Al Sc LD DE,$SCAiI “ £s BYTE MEHM3 

2E9GB 06 09 EB 8,7 ;s STELLENZAÄHLER 

2E9D ED öF RLD : LINKES NIEBLE 1. BYTE MEM4 
ZEIF ; WEGWERFEN 

2E7F DE FF LD C,$FF ; FÜHRENDE NULL ANKERKEN 

2EAl ED 6F RLD :s LINKES NIBBLE (HL) IN A, 
2EAS ; RECHTES NIBBLE (HL) NACH LINKS 
2EA3 20 04 JR NZ,#2EA9 ı DEZIMALSTELLE IN A IST © 
ZEAS OD BEG. 5 ; TEST AUF FÜHRENDE NULL: 

2EA& ÖL INC C 

2EA7 20 0A JR NZ,$2EB3 s JA 

2EA9 2 LD (DE),A ; DIGIT SPEICHERN 

2EAA 13 INC DE ; ZEIGER ERHSHEN 

2EAB FD 34 71 INC (IY+$71) ; EINE STELLE MEHR AUSZUGEBEN 
2EAE FD 34 72 INC (1Y+#72) UND EINE MEHR VOR DEM KOMMA 
2EBIi 0E 00 LD 6,0 ; KEINE FÜHRENDE NULLEN MEHR 
2EBS CB 40 BIT 0,B ; ZEIGER AUF MEM4 NUR BEI 

2EBS 28 Öl JR Z,#2EB8 ; NUR BEI JEDEM 

ZEBT 23 INC HL ; ZWEITEN DURCHLAUF ERHGHEN 
2EBB 10 E7 DJINZ $2EAI ; STELLENZÄHLER NOCH NICHT 0 
2EBA 3A AB SC LD A, ($5CAB) ; PRÜFEN AUF 9 DIGITS DHNE 
2EBD D& 09 SUB 9 ; FÜHRENDE NULLEN 

2EBF 38 0A JR C,#+2ECB ; WENN WENIGER, WEITERE DISITS 
2ECI ; HOLEN (NACHKEDMMASTELLEN) 
2EtI FD SS MA DEC (IY+$71) ı STELLENZAHL AUF B SETZEN 
2EC4 3E 04 LD A,4 ; ZUM RUNDEN DAS LETZTE DIGIT 
2EC& FD BE 6F EP (IY+$6F) ; (4. BYTE MEM4) GEGEN 4 VER- 
2ECY ; GLEICHEN, DAMIT DAS CARRY 
2EC? ;s ENTSPRECHEND GESETZT WIRD 
2EC9 18. 41 JR DEZRND ; ZUM RUNDEN 
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2ECB 
2ECB 
2ECB 
2ECB 
2ECB 
2ECC 
2ECD 
2ECE 
2ECF 
2EDD 
2ED? 
2ED4 
2ED& 
2ED? 
2ED? 
2EDB 
2EDE 
2EDF 
2EDF 
ZEE2 
2EE4 
2EE&d 
2EE7 
2EE9 
2EEA 
2EEC 
2EEC 
2EEF 
2EEF 
2EFO 
2EFS 
2EF4 
2EFS 
2EFB 
2EF? 
2EFA 
2EFB 
2EFC 
2EFE 
2EFE 
2F0O1 
2F02 
2F05 
2F0& 
2F07 
2FOA 
2FüOCt 
2Föc 
2Füc 
2Föc 
ZFOD 
2Fid 
2F13 
2F15 
2Fl6& 
2F17 
2Fi8 
2F17 
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BA 


80 


00 
FA 


DD 
ER 
08 
0& 
12 
20 


00 


SB 


BB 


2F 


2F 


71 


02 


2F 


af 


Sc 


71 


Sc 


De TEE T Er 7 


RST CALRUF 
„BYT $02 
‚BYT $E2 
„BYT $38 

EX DE,HL 
CALL $2FBA 
EXX 

LD A,$80 
SUB L 

LD L,0 

SET 7,D 

EXX 

CALL SHIFTF 


LD A,(IY+$71) 
CP 8 

JR C,#2EEC 
EXX 

RLD 

EXX 

JR DEZRND 


LD BE,$200 


LD A,E 
CALL $2F8B 
LD E,A 

LD A,D 
CALL $2FBB 
LD D,A 
PUSH BC 
EXX 

POP BC 
DINZ $2EEF 


LD HL,$SCAI 
LD A,C 

LD C,(IY+$71) 
ADD HL,BC 

LD CHL},A 

INC (IY+$71) 
JR +2EDF 


DEZRND PUSH AF 


LD HL,$SCAI 
LD C,tIY+$71) 
iD B,O 

ADD HL,BC 

LD B,C 

POP AF 

DEC HL 

LD A,cHL) 


.—-——.1 EEE a A u EEE a Eu U u BE un NA ae BE an 


DIE NACHKOMMASTELLEN WERDEN JETZT IM AUSGABEPUFFER 
ABGELEGT 


I, 

-, I LÖSCHEN 

F, MEM2 LADEN 

F, ENDE 

DE ZEIST AUF F 

MANTISSE VON F NACH DE’, DE 
ZWEITER RESISTERSATZ 
EXPONENTENANPASSUNG FÜR DEN 
NACHKOMMATEIL DURCHFÜHREN 
EXPONENT AUF 0 SETZEN 
NUMERISCHES ERBEBNIS ANMERKEN 
NORMALER REGISTERSATZ 

DIE SHIFTS ZUM ANGLEICH AN DEN 
VORKOMMATEIL DURCHFÜHREN 
MEMS: STELLENZÄHLER HOLEN 
BEREITS 8 STELLEN ? 

NEIN 

BEI 8 STELLEN NUR DAS HÖCHSTE 
BIT DES HöCHSTEN BYTE ZUM 
RUNDEN INS CARRY SCHIEBEN 

ZUM RUNDEN 


EC MIT O0 VORBESETZEN, B AUF 2 
ZUM ZÄHLEN 

ES WIRD JEWEILS EINZELN D’,E', 
D UND E MIT 10 MULTIPLIZIERT 
C ENTHÄLT JEWEILS DAS CARRY 

ES WIRD ALSD 10#*A+C FÜR D'.. 
BERECHNET 


ZÄHLER ZWISCHENSPEICHERN 

DEN ANDEREN REGISTERSATZ HOLEN 
ZÄHLER ZURÜCK 

SFRUNS, WENN NOCH NICHT BEIDE 
REGISTERSÄTZE BEARBEITET 

i. BYTE VON MEM3 

ERGEBNIS NACH A 

JETZIGE STELLENZAHL NACH C 
DAS 1. LEERE EYTE ADRESSIERN 
A SPEICHERN 

i STELLE MEHR ANMERKEN 
WEITER, EIS B STELLEN 


DIE DEZIMALSTELLEN RUNDEN 


CARRY ZWISCHENSPEICHERN 

l« BYTE MEM3 = 1. STELLE 
STELLENZAHL = OFFSET 

NACH BC LADEN 

HINTER DAS LETZTE BYTE ZEIGEN 
STELLENZAHL NACH B ZUM ZÄHLEN 
CARRY HOLEN 

EINE STELLE IN DER ZAHL ZURÜCK 
DAS DIEIT LADEN UND 


2FiA 
2FIC 
2FiD 
2FiE 
2F20 
2F22 
2F23 
2F25 
2F27 
2F29 
2F2A 
2F2D 
2F2D 
2F30 
2F31 
2F32 
2F33 
2F34 
2F35 
2F36 
2F36 
2F36 
2F36 
2FSA 
2F3D 
2F3E 
2F40 
2F42 
2F44 
2F44 
2F4b 
2F47 
2FAA 
2FAR 
2FAC 
2FAF 
2F50 
2F52 
2F52 
2F52 
2F52 
2F53 
2F54 
2F54 
2F56 
2F57 
2F58 
2F59 
2FSC 
2FSE 
2FSF 
2F6&0 
2F6l 
2F&2 
2F64 
2F65 
2F67 
2F69 


32 


DC 


72 


D 71 


AB 
Sc 


15 


2F 


sc 


L 
a 
’ 


” 
’ 
” 
’ 


ADE 9 

LD (HL)},A 
AND A 

JR 2,$2F25 
CP iD 

CCF 


IR NC,$2F2D 


DINZ $2F18 
LD (HL) ,S 
INC B 

INC 


LD (IY+$71),B 


RST CALRUF 
«BYT #02 
‚BYT #38 
EXX 

POP HL 

EXX 


LD BC, ($5CAB) 


LD HL,$5CAl 
LD A,B 

cp 9 

IR C,$2F46 
CP $FC 


JR C,$2F6C 
AND A 


CALL Z,$15EF 


XOR A 
SUB B 

JP M,$2F52 
LD B,A 

JR $2FSE 


LD A,C 
AND “A 


JR 2,$2F59 
LD A, (HL) 
INC HL 

DEC C 

CALL $15EF 
DINZ $2F52 
LD A,E 

AND A 

RET 1 

INC B 
Et, 
RST PRTOUT 
5 40’ 
DINZ $2F64 
LD B,C 


(IY+$72) 


WE EEE u NE u TEE a TE a WE u TE a TEE u TEE ne 


[3 
; 
“ 
; 
“ 
3 
; 
® 
; 
” 
s 
; 
“ 
; 
[4 
} 
. 
; 
[2 
’ 


-—-—_ WE a A a EEE u NEE u TE a EEE a NEE u NEE u 


DAS CARRY ZUM RUNDEN ADDIEREN 
ERGEBNIS SPEICHERN 

NULLEN AM ENDE WERDEN 

NICHT GEZÄHLT 

EINE 10 EBENFALLS NICHT, ABER 
ES MUSS WEITER GERUNDET WERDEN 
SPRUNG BEI NORMALEN DIGIT 
WEITER IN DER RUNDUNGSSCHLEIFE 
HIER WIRD EINE ZUSÄTZLICHE 1 
NACH DEM RUNDEN BENÖTIGT, 

+1 DISIT UND +1 STELLE VOR 

DEM KDMMA 

STELLENZAHL MERKEN 

F, MUSS NOCH 

-, GELSSCHT WERDEN 

ENDE 

CALCULATORDFFSET 

AUS HL’ ZURGEKHOLEN 


DIE ZAHL KANN AUSGEGEBEN WERDEN 


; STELLENZÄHLER SETZEN 


l. BYTE MEM3 =1. BYTE BER ZAHL 


;s MEHR ALS 9 STELLEN ? 


NEIN 

MEHR ALS 4 NULLEN NACH 

DEM DEZIMALPUNKT ? 

JA: EXPDNENTIALFORMAT AUSGEBEN 
STELLEN VOR DEM PUNKT ? 

NEIN: EINE NULL AUSGEBEN 

A LÖSCHEN 

STELLEN VOR DEM PUNKT ? 

JA: AUSGEBEN 

STELLEN NACH DEM PUNKT IN B 
ZUM ZÄHLEN LADEN UND AUSGEBEN 


} 
DIE STELLEN VOR DEM PUNKT AUSGEBEN 


NOCH STELLEN VOM SPEICHER 
AUSZUGEBEN { B IST ANZAHL 
ALLER STELLEN) ? 

NEIN: ENDNULL AUSGEBEN 
SONST DIGIT LADEN 

ZEIGER ERHSHEN 
VORKOMMAZÄHLER -1 

DIE ZAHL AUSGEBEN 

NOCH NICHT ALLES GEDRUCKT 
DEN DEZIMALPUNKT AUSGEBEN, 
WENN C NICHT NULL IST, 
SONST AUSGABE FERTIS 
ZÄHLER FüR FUNKT +1 

DEN DEZIMALFUNKT 

AUSGEBEN 

EVTL. BENÖTIGTE NULLEN 
AUSSEBEN 

ZÄHLER FÜR DIE RESTLICHEN 
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2F&A 
2F&C 
2F&C 
2FEC 
2F&C 
2F&LC 
2F&D 
2F6E 
2F7O 
2F70 
2F73 
2F75 
2F76 
2F77 
2F78 
2F79 
2FTC 
2F7E 
2FTF 
arsi 
2F83 
2F85 
2F8& 
2F88B 
2FEB 
2FBE 
2FBB 
2FSB 
2FSC 
2F@D 
2FSF 
2F90 
2r91 
2F92 
2F93 
2F9a 
2F95 
2F9 
2F97 
2F98 
2F99 
2FSA 
2FOB 
2F9B 
2FIE 
2FOB 
2F9B 
2FSE 
2F9E 
2FIF 
2FAO 
2FAI 
2FAZ 
2FAS 
2FAG 
2FA7 
2FAB 
2FAB 
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18 


Eb& 


aA 2F 


83 2F 


0 


20 


7E 
FE 


05 00 


. -—.-— Om 


‚ 
; 


JR $2F52 


LD D,B 
DEC D 
LD B,1 


CALL $2F4A 
LD-A;'E' 
RST PRTOUT 
LD C,D 

LD A,C 

AND A 

IP P,$2F83 
NEG 

LD £,A 

Lb A,'-' 
JR $2F8B5 
WEIT, 
RST PRTOUT 
LD B,O 

IP ${A1B 


PUSH DE 
LD L,A 

LD H,0 

LB E,L 

LD D,H 
ADD HL,HL 
ADD HL,HL 
ADD HL,DE 
ADD HL,HL 
LD E,C 
ADD HL,DE 
LD C,H 

LD A,L 
PEP DE 
RET 


2 
’ 


3 
“ 
; 
“ 
3 
; 
[3 
} 
; 
3 
” 
; 
$ 
”* 
; 
“ 
; 
H 
H 
; 
” 
; 
“ 
‚ 
[ 
} 
“ 
‚ 
H 


m TE ee VE 


DIGITS SETZEN UND DRUCKEN 


EINSTIEG, WENN DIE ZAHL IM EXPONENTIALFORMAT 
SEDRUCKT WERDEN MUSS 


STELLENZAHL NACH D KOPIEREN 


1 ABZIEHEN 


ERGIBT EXFDNENT 


EINE STELLE VOR DEM DEZIMAL- 
PUNKT IM EXFONENTIALFORMAT 
DIE STELLEN AUSGEBEN 

DAS E FüR DEN EXFDONENT 


AUSGEBEN 


EXFONENT NACH C 
IN A ZUM TESTEN BRINGEN 
NEGATIVER EXFONENT ? 


NEIN 


SONST INVERTIEREN UND 
NACH E LADEN 
MINUSZEICHEN LADEN UND 


AUSGEBEN 


FLUSZEICHEN FüR FOSTIVEN EXP. 
ZEICHEN AUSSEBEN 

B FüR EXPONENTENAUSGABE 
LSSCHEN UND AUSGEBEN 


’ 
SUBROUTINE ZUM BERECHNEN VON 1östA)+{C) 


ZWISCHENSPEICHERN 


A NACH 


HL KOPIEREN 


ZUSÄTZLICH 
DE BRINGEN 
2*A BILDEN 
4*A BILDEN 
S#A BILDEN 


10*A BILDEN 


LOxA+L 
BERECHNEN 


NOCH NACH 


ÜBERLAUF NACH C 
ERGEBNIS IN A LADEN 
DE ZURGCKHOLEN 


s 
; SUBROUTINE ZUM VORBEREITEN DER ABDITIDN EINER 


FLOATINEPOINTZAHL 


LD A, CHL) 
LD {HLI,O 
AND A 

RET Z 

INC HL 

BIT 7,{HL) 
SET 7,(HL) 
DEC HL 
RET ı 

PUSH BC 
LD BE,S 
ADD HL,BE 


EXFONENT LADEN 
EXPONENTEBYTE LOSCHEN 


IST ES DIE 
JA: RETURN 


ZAHL 0? 


VORZEICHENBYTE ADRESSIEREN 
TEST AUF FOSITIV/NEGATIV 
DAS BIT IMMER 1 SETZEN 
ERSTES BYTE ADRESSIEREN 
BEI POSITIVER ZAHL FERTIS 
BC ZWISCHENSPEICHERN 

3 BYTES BEARBEITEN 


HINTER DAS 


LETZTE BYTE ZEIGEN 


2FAG 
ZFAD 
ZFAE 
ZFAF 
aFAF 
Z2FBO 
2FBl 
2FB2 
2FB4 
2FBS 
ZFB7 
aFEBB 
2FB9 
2FEA 
2FBA 
2FBA 
2FER 
ZFEA 
2FBA 
2FEA 
aFBA 
ZFEB 
2FBC 
2FED 
2FBE 
aFEF 
2FCD 
2FCO 
2Fci 
2FC2 
2FC3 
2rFtc4 
2FC5 
aFcö6 
2FC7 
arFcE 
2FC? 
2FCA 
2FCB 
zFEC 
ZFCD 
2FCE 
arFcr 
2FDO 
2FDI 
2FD2 
2FD3 
2FD4 
2FD5 
2FD& 
2FD? 
2FDS 
2FD9 
2FDA 
2FDB 
2FDE 
2FDD 
2FDD 


00 


FR 


SUBROUTINE ZUM LADEN VON 2 


DEC HL 

LD A,CHL) 
CPL 

ADE © 

LD {HL),A 
DINZ $2FA 
iD A,C 
POP BL 
RET 


y 
’ 
F ; 
, 
5 


DIE PROZESSORRESISTER, 
UNB DE AUF 1. 


ZAHL 1: 


ZAHL 


SUBROUTINE 


EYTE DER 


B ALS ZÄHLER FüR SCHLEIFE 
EXFONENT ZWISCHENSPEICHERN 
CARRY FüR 2-KOMPLEMENTEILDUNG 
SETZEN 

ZEIGER EIN BYTE ZURÜCK 

BYTE LADEN UND 

DIE 2-KOMFLEMENTBILDUNG 
DURCHFÜHREN 
ZURÜCKSCHREIBEN 
WIEDERHOLEN BIS 5 
EXPONENT UND 

BC RESTAURIEREN 


BYTES FERTIS 


FLOATINGFOINTZAHLEN IN 
HL ZEIGT AUF 1. 
ZWEITEN ZAHL 


Mi - M5 IN H’,B’,C’,C,B 


2: Ni - NS IN L’,D’,E',D,E 


PUSH HL 
PUSH AF 
LD C,C{HL) 
INC HL 
LD B,CHL) 
LD (HLYJA 


INC HL 
LD A,C 

LD 6, CHL) 
PUSH BL 
INC HL 
LD C,(HL) 
INC HL 
LD B,CHL) 
EX DE,HL 
LD DsA 

LD E,{HL) 
PUSH DE 
INE HL 
LD D, (HL) 
INC HL 
LD E,CHL) 
PUSH DE 
EXX 

POP DE 
POP HL 
POP .BC 
EXX 

INC HL 
LD D,CHL) 
INC HL 
LD E, (HL) 
POP AF 
POP HL 
RET 


ZUM 


AU Eu EEE u TE 


SHIFTEN 


HL UND 
AF IWISCHENSPEICHERN 
Mi LADEN 


MHZ LADEN 
BEI MULT/DIV VORZEICHEN 
SPEICHERN 


Mi NACH A 
M3 LADEN 
M2/M3 ZWISCHENSPEICHERN 


M4 LADEN 


MS LADEN 
HL ZEIET AUF 1. 
Mi NACH D 
Ni LADEN 
Mi/Ni ZWISCHENSPEICHERN 


BYTE 2. ZAHL 


NZ LADEN 


NS LADEN 

N2/NZ ZWISCHENSPEICHERN 

AUF 2. REBISTERSATZ SCHALTEN 
D’=N2, E'=N3 

H’=Ml, L'=Ni 

B'=M2, C'=M3 

NORMALER REGISTERSATZ 


M4 LADEN 
MS LADEN 


AF ZURÜCKHOLEN 


ZEIGER 1. BYTE 1. ZAHL ZURÜCK 


EINER ZAHL UM MAXIMAL 22 BITS 
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BYTE DER ERSTEN 


ZFDD 
2FDD 
2FDD 
2FDE 
2FDF 
2FEI 
ZFES 
2FE4 
2FES 
ZFES 
2FE& 
2FE8 
2FEA 
2FEC 
2FED 
2FEF 
2FFi 
2FF3 
2FF4 
2FFS5 
2FF8 
2FFY 
aFFA 
2FFB 
2FFD 
2FFE 
2EFF 
3000 
3003 
3004 
3004 
3004 
3004 
3004 
3004 
3004 
3004 
3005 
3006 
3007 
3008 
3009 
300A 
Ss60C 
300D 
300E 
300F 
300F 
30ÖF 
SO0F 
SOOF 
3010 
3013 
3013 
3014 
3014 
3014 
3014 
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CD 


EB 


21 
16 


04 30 


00 


20 00 


01 


bE 34 


; FüR EINE ADDITION (EXPONENTENANGLEICH) 


SHIFTF 


SHIFTE 


ADDNUL 


AND A 
RET Z 

CP 33 

IR NC,$2FF9 
PUSH BC 

LD B,A 


EXX 
SRAL 
RR D 

RR E 
EXX 

RR D 

RR E 
DINZ SHIFTB 
POP BC 
RET NE 
CALL $3004 
RET NZ 
EXX 

XOR A 
LD L,O 
LD D,A 
LD E,L 
EXX 

LD DE,O 
RET 
„END 


‚LIB SPEC3000-S 


na ee. (ME un u an a 


ma 'UB 1un EEE un TEE ae TEE a EEE an 


DIREKT RETURN, FALLS KEINE 
DIFFERENZ DER EXPONENTEN 
DIFFERENZ >32 ? 

JA: NULL ADDIEREN 
ZWISCHENSPEICHERN 
EXPONENTLIFFERENZ ZUM ZÄHLEN 


DER RECHTSSHIFTS NACH B 


L’ NACH RECHTS SCHIEBEN 
D’ UND E’ MIT 
CARRY NACH RECHTS ROTIEREN 


EBENFALLS D UND E 

NACH RECHTS ROTIEREN 
WEITER, BIS DIFFERENZ O IST 
BC ZURÜCKLADEN 

KEIN CARRY ZU BERÜCKSICHTIGEN 
CARRY ADDIEREN 

KEIN ÜBERLAUF NACH LINKS 
L’',D’ UND E‘' HOLEN 

A LÖSCHEN 

L’, 

D' UND 

E’ LSSCHEN 

NORMALE REGISTER ZURÜCK 

DE LÖSCHEN 


; SINCLAIR ZX SPECTRUM TEIL 3000 


; SUBROUTINE ZUM ADDIEREN EINES CARRYS BEI DER RECHTS- 


; VERSCHIEBUNG EINER ZAHL 


INC E 
RET NZ 

INC D 

RET NZ 

EXX 

INC E 

IR NZ,$300D 
INC D 

EXX 

RET 


En TE u 


; 


(SIEHE ROUTINE VORHER) 

ES WERDEN JEWEILS DIE 
EINZELNEN BYTES DER ZAHL 
NACHEINANDER INKREMENTIERT, 
SOLANGE SICH NULL ALS ERGEBNIS 
EINSTELLT, SONST DIREKT RETURN 


WENN DAS ZERDOFLAG 
BEIM RETURN GESETZT IST, 
IST EIN üBERLAUF AUFGETRETEN 


DURCHFÜHRUNG DER SUBTRAKTION ZWEIER 


FLOATINGPOINTZAHLEN 


; 
; 
; 
SUBTRA 


au ae Ta 1a 


EX DE,HL 
CALL $346E 


EX DE,HL 


5 
s 
” 
’ 
. 
» 
. 
‚ 


ZEIGER UMSCHALTEN 

VORZEICHEN DER ZU SUETRA- 
HIERENDEN ZAHL INVERTIEREN 
ZEIGER ZURÜCK UND ADDIEREN 


SUBROUTINE ZUM ADDIEREN ZWEIER FLOATINGFOINTZAH- 
LEN AUF DEM CALC,-STACK 


ZU EINEM "LETZTEN WERT 


014 
>0193 
>01& 
3018 
3018 
3018 
3018 
3019 
301A 
301B 
301C 
301D 
SOLE 
SOlF 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
"302% 
302A 
302B 
>02B 
302€ 
302€ 
302D 
302F 
3031 
3032 
3033 
3034 
3035 
30365 
3037 
3038 
3039 
303A 
303B 
303C 
305t 
303D 
303E 
3041 
3041 
3041 
3041 
3041 
3042 
30473 
3044 
3045 
3046 
3049 
3049 


IA 


00 
DB 


98 


ADDIER LD A,(DE) ; 
OR (HL) 
JR NZ,$303E ; 


} 


3 
ADDITION VON 


PUSH DE 
INC HL 
PUSH HL 
INC HL 
LD E, (HL) 
INC HL 
LD D,CHL3 
INC HL 
INE HL 
INC HL 
LD A,{HL) 
INC HL 
LD C,CHL) 
INE HL 
LD B,(HL) 
POF HL 
EX DE,HL 
ADD HL,BC 
EX DE,HL 


"EEE TEE u ER a a ER a 


ADC (HL) 
RRCA 

ADC 0 

JR NZ,$303C 
set A 

LD (HLI,A 
INC HL 

LD (HL)I,E ; 
INC HL 

LD (HL),D ; 
DEC HL ; 
DEC HL ; 
DEC HL 

POP DE ; 
RET 


A TEE a TEE an TE a TEE a TEE En TEE 


DEC HL ; 
POP DE 
CALL $3293 ' 

; 


VOLLE ADDITION ZWEIER ZAHLEN 


EXX - 

PUSH HL ; 

EXX 

PUSH DE ; 

PUSH HL ; 

CALL #2F9B - 
’ 


LD B,A 


TEST, OB DIE ERSTEN BYTES 
BEIDER ZAHLEN O SIND 
NEIN: VOLLE ADDITION 


INTEGERZAHLEN 555393 


ZEIGER AUF 2. 
ZEIGT AUF 2. 
UND RETTEN 

3: BYTE 1. ZAHL 

LORBYTE NACH E LADEN 

4, BYTE 1, ZAHL 

HIGSHBYTE NACH D LADEN 
ZUM 2, BYTE DER 

2, ZAHL GEHEN 
(=VDORZEICHENBYTE) 

NACH A LADEN 

3, BYTE 2. ZAHL 

LOWBYTE LADEN 

4, BYTE 2. ZAHL 

HISHBYTE LADEN 

ZEIGER AUF VORZEICHEN 1. 
NACH DE, 1. ZAHL NACH HL 
DIE 2 ZAHLEN ADDIEREN 
ERGEBNIS IN DE, ZEIGER AUF 
VORZEICHEN 1. ZAHL IN HL 

DIE ZWEI VORZEICHEN UND DAS 
CARRY ADDIEREN 

REG A MUSS NULL SEIN, 

SONST IST DAS ERGEBNIS >655936 
üBERLAUF: VOLLE ADDITION 
VORZEICHEN DES ERGEENISSES 
BERECHNEN UND SPEICHERN 


ZAHL RETTEN 
BYTE li. ZAHL 


ZAHL 


LOWBYTE UND 


HIGHBYTE SPEICHERN 
HL AUF 1. BYTE 
VOM ERGEBNIS SETZEN 


STEEND NACH DE HOLEN 


ZEIGER AUF I. BYTE 1. ZAHL UND 
il. BYTE 2. ZAHL WIEDER SETZEN 
BEIDE ZAHLEN ALS VOLLE 5 BYTES 
IN FLOATINGFORM AUF DEN STACK 


(KEINE INTEGERZAHLEN) 


REGISTERTAUSCH, UM DEN ZEIGER 
AUF NÄCHSTE ZAHL ZU RETTEN 


ZEIGER I. SUMMAND RETTEN 
DESGLEICHEN 2. SUMMAND 
il. ZAHL FüR DIE ADDITION 


; VORBEREITEN 


EXPONENTEN IN B RETTEN 
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304 
304B 
304E 
SO4F 
3050 
3050 
3052 
3053 
3054 
3053 
3056 


057 
305A 


>05D 
JOSE 
S30sr 
3060 
3061 
3082 
3063 
3064 
>065 
3066 
3068 
53069 
Z06A 
306B 
S306C 
S0&D 
S0&E 
S0dE 
S06E 
S06&E 
SO&E 
SO6r 
3079 
3071 
3072 
3074 
076 
>079 
3D7A 
S307C 
>07D 
S307E 
3080 
3081 
082 
>083 
>084 
>08 
S0B& 
3087 
3089 
30BA 
S0BA 
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9B 


BA Z 


af 


44 


2F 


N 


EX DE,HL 


CALL #2F9B 


LD C,A 
CP B 


JR NC,#3055 


LD A,B 
LD B,C 
EX DE,HL 
PUSH AF 
Sup B 


CALL $ZFEA 
CALL $2FDD 


POP AF 
POP HL 

LD (HL),A 
PUSH HL 
LD L,B 

LD H,C 
ADD HL,DE 
EXX 

EX DE,HL 
ADC HL,BE 
EX DE,HL 
LD A,H 
ADC L 

LD L,A 
RRA 

XOR L 


EXX 
EX DE,HL 
POP HL 
RRA 


JR NC,$307C 


LD A,l 
CALL $2FDD 
INC (HL) 
JR 2,$309F 
EXX 

LD A,L 

AND $80 
EXX 

INC HL 

LD (HL),A 
DEC HL 

JR Z,$30A5 


LD A,E 
NEG 
CEF 


LD E,A 


u EEE u -——:— A a EEE u 


m. U u -—-— ME u (BE a TEE u A a TE u TE a MR ——7_. ME un WE a. —— m. —— DE u 3 [en —— WE a 0 WE u EEE u —. 


ZEIGERTAUSCH FÜR 2, ZAHL 
DIESE FüR ADDITION VORBEREITEN 
EXPONENT NACH C 

VERGLEICH, DB DIE 1. ZAHL 
KLEINER ALS DIE ZWEITE IST 
JA 

SONST DIE BEIDEN 

EXFONENTEN UND DIE 

ZEISER TAUSCHEN 

GRÖSSEREN EXFONENT RETTEN 
DIFFERENZ FüR RETHTSSCHIEBEN 
BERECHNEN 

BEIDE ZAHLEN VOM STACK HOLEN 
ANPASSUNG DER MANTISSEN 
DURCHFÜHREN 

GRÖSSEREN EXFONENT HOLEN 

HL ZEIGT AUF DAS ERGEBNIS 
EXFONENT ERGEBNIS SFEICHERN 
ZEIGER ZWISCHENSPEICHERN 

DIE ZWEI RECHTEN BYTES FüR 
DIE ADDITION NACH HL 

DIESE ADDIEREN 

ERGEBNIS IN HL’ RETTEN UND 
DIE NÄCHSTEN BYTES ZUM 
ADDIEREN HOLEN 

ERGEBNIS NACH DE’ 

DAS 5. BYTE IN H’ UND 

L’ ADDIEREN 

ERGEBNIS NACH L’ 

WENN üBERLAUF BEI DER ADDITION 
ZWEIER POSITIVER ZAHLEN ODER 
KEIN UBERLAUF BEI 2 NEGATIVEN 
ZAHLEN AUFTRITT, MUSS DAS 
ERGEENIS 1 STELLE NACH RECHTS 
VERSCHOBEN WERDEN 

ERGEBNIS NACH DE UND 

DE’ BRINGEN 

ZEIGER AUF DEN EXPONENT 

TEST OB SHIFT NOTWENDIG 

NEIN 

UM 1 STELLE SCHIEBEN 
RECHTSSHIFT AUSFÜHREN 
EXPONENT UM 1 ERHÖHEN 

SPRUNG, FALLS üBERLAUF: ERROR 
TEST AUF NEGATIVES ERGEBNIS 
VORZEICHENBIT HOLEN UND 
ISDOLIEREN 

DIESES BIT IM 

2. BYTE DES ERGEBNISSES 
SPEICHERN 

AUF 1. BYTE ZEIGEN 

ERGEBNIS POSITIV: KEIN 
2-KOMPLEMENT BILDEN 

ERSTES EYTE HOLEN UND 
2-KOMPLEMENT BILDEN 

CARRY INVERTIEREN FÜR WEITERE 
2-KEOMPLEMENTBILDUNG 

BYTE ABSPEICHERN 


308B 
308C 
308D 
308F 
3090 
3091 
3092 
3093 
3095 
3096 
3097 
3098 
3094 
309C 
309D 
309D 
309D 
309E 
309F 
30A2 
30A2 
30A3 
30A4 
30A5 
30A& 
30A9 
3049 
30A9 
3049 
30AA 
SOAC 
S0AD 
SOAE 
30B1 
30B2 
3084 
30B& 
30B7 
»0B7 
30B9 
>O0BA 
30BC 
>üBE 
S0BF 
30cHh 
30C0 
30CD 
3060 
30c0 
3063 
30C4 
30C5 
3006 
30C& 
3008 
3069 
30CA 
30cA 


00 


00 


Do 
07 


E9 


FE 


00 


>4 


ET ET ET 


LD A,D 
CPL 
ADE 0 
LD D,A 
EXX 

LD A,E 
CPL 
ADE 0 
LD E,A 
LD A,D 
CPL 
ADC 0 
JR NC,$30A3 
RRA 


EXX 
INC (HL) 
JP 2,$31AD 


EXX 
iD D,A 
EXX 

XOR A 

Jp $3155 


PUSH BE 

LD B,1b 

iD A,H 

LD C,L 

LD HL,O 
ADD HL,HL 
JR C,$30BE 
RL EC 

RLA 


IR NL,$30BC 
ADD HL,DE 
IR C,$IOBE 
DINZ $30B1 
POP BC 

RET 


CALL $34E9 
RETC 

INC HL 

XDOR (HL) 


SET 7,{HL) 
DEC HL 
RET 


u ME en TEE ae Te 


Eee 


2. BYTE LADEN UND 
INVERTIEREN, MIT DER 
ADDITION ERGIET SICH DAS 
2-KOMFLEMENT, ABSPEICHERN 


VORSANS FüR DIE 
WEITEREN 2 BYTES 
WIEDERHOLEN 


KEIN CARRY: FERTIS 

SONST IST DAS ERGEBNIS 
GENAU 2”°XX, MANTISSE AUF 
0,53 SETZEN 

EXPONENT UM 

i ERHSHEN 

RECHENBEREICH ÜBERSCHRITTEN: 
FEHLERMELDUNG 


LETZTES RBYTE SPEICHERN 


CARRY LSSCHEN UND ZUM 
NORMALISIEREN 


SUBRDUTINE ZUM BERECHNEN VON HL=DE&*HL 


BC ZWISCHENSPEICHERN 

B ALS ZÄHLER FüR 14 BIT 
HYSEHBYTE NACH A UND 

LOWEYTE NACH C BRINGEN 

HL FüR BERECHNUNG AUF 0 

HL MIT 2 MULTIPLIZIEREN 
CARRY GESETZT: üBERLAUF 
JEWEILS DAS HöCHSTE BIT INS 
CARRY UND DIE RESTLICHEN BITS 
NACHSCHIEBEN 

BIT WAR 0: SPRUNG 

SDNST DE ADDIEREN 

SPRUNG BEI üBERLAUF 

ik MAL ROTIERT UND ADDIERT ? 
JA: BE ZURÜCKHOLEN UND ENDE 


SUBROUTINE ZUM VORBEREITEN EINER MULTIPLIKATION DDER 
DIVISIDN 


IST DIE ZAHL 0 ? 

JA, RETURN 

VORZEICHENBYTE ADRESSIEREN 

IN A VORZEICHEN DES ERBEBNISSES 
BILDEN: GLEICHE = D, SONST $FF 
BIT FÜR NUMERISCH SETZEN 

WIEDER AUF EXPONENT ZEIGEN 


SUBROUTINE ZUM AUSFÜHREN EINER MULTIPLIKATION 
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7F 


«E 


A? 


[0 . 


05 


2D 


2D 


30 


2D 


30 


; 
MULTIP 


LD A,(DE) 
OR (HL) 

JR NZ,$30F0 
PUSH DE 
PUSH HL 
PUSH DE 
CALL $2D7F 
EX DE,HL 
EX (SP) ,HL 
LD B,C 
CALL $2D7F 
LD A,B 

XoR 

LD C,A 

POP HL 
CALL $30A9 
EX DE,HL 
POP HL 

JR C,$30EF 
LD A,D 

OR E 

JR NZ,$30EA 
LD 6,4 
CALL $2DBE 
POP DE 

RET 


POP DE 
CALL #3293 
XOR A 

CALL $30C0 
RET C 

EXX 

PUSH HL 
EXX 

PUSH DE 

EX DE,HL 
CALL $3060 
EX DE,HL 
JR C,$315D 
PUSH HL 
CALL $2FBA 
LD A,B 

AND A 

SBC HL,HL 
EXX 

PUSH HL 
SBC HL,HL 
EXX 

LD B,33 

JR $3125 


IR NC,$311B 


ADD HL,DE 
EXX 


-—.——— ME ae TEE a a .—— m EEE ——:. 8 m er EEE a EEE ae NEE a ER 


On EEE a TE en TEE u EEE a Er NEE u 


0 (BE ae MR 


TEST, OB DIE ERSTEN BYTES 
BEIDER ZAHLEN O0 SIND 

NEIN: VOLLE MULTIPLIKATION 
JA: INTEGERMULTIPLIKATIDN 
ZEISER AUF 2., 1. UND NOCH 
EINMAL 2. ZAHL RETTEN 

ZAHL IN DE, VORZEICHEN ING 
DIE ZAHL IN HL BRINGEN UND MIT 
ZEIGER AUF 2, ZAHL TAUSCHEN 
VORZEICHEN 1. ZAHL NACH B 
2. ZAHL HOLEN 

VORZEICHEN DES ERGEBNIS 


; BESTIMMEN UND NACH 


C KOPIEREN 
{. ZAHL NACH HL 
MULTIPLIKATION HL=DE*HL 


; ERGEBNIS NACH DE 


ZEIGER AUF 1. ZAHL HOLEN 
ÜBERLAUF: VOLLE MULTIPLIKATION 
TESTEN, OB ERGEBNIS 

NULL IST 

NEIN 

SONST EXPONENT =0 

ZAHL IM STACK SPEICHERN 

ZEIGER AUF STKEND HOLEN 


ZEIGER AUF 2. ZAHL ZURÜCK 
BEIDE ZAHLEN AUF DEN STACK 

A LöSCHEN, UM VORZEICHEN 

li. ZAHL ZU ÜBERNEHMEN 

FERTIG, WENN 1 ZAHL = 0 
RESISTERTAUSCH, UM ZEIGER AUF 
NÄCHSTE ZAHL ZU RETTEN 


ZEIGER AUF MULTIPLIKANT RETTEN 
ZEIGERTAUSCH, UM DIE 

2. ZAHL VORZUBEREITEN 

ZEIGER ZURÜCKTAUSCHEN 

SPRUNG, WENN 2. ZAHL = Ö 
ZEIGER AUF ERGEBNIS RETTEN 
BEIDE ZAHLEN VOM STACK HOLEN 
MS NACH A HOLEN 

CARRY FÜR SUBTRAKTION LÖSCHEN 
HL FÜR ERGEBNIS AUF 0 SETZEN 
REGISTERTAUSCH, UM Mi UND 

Ni (IN HL’) ZU RETTEN 

HL’ MIT 0 VORBESETZEN 

NORMALE REGISTER 

B ALS ZAÄHLER AUF 33 SETZEN 
SPRUNG IN DIE MULTIPLIKATIONS- 
SCHLEIFE 


BIT IST NICHT GESETZT, 
NICHTS ADDIEREN 
SONST MULTIPLIKANT IN 
IN DE UND DE’ ZU 


3118 
11A 
S11B 
siit 
Sl1E 
>120 
5121 
3123 
3125 
3126 
>128 
>12A 
>12B 
>12D 
312E 
3139 
3131 
5132 
3133 
3134 
>135 
31585 
3136 
3157 
3138 
s15A 
313B 
Ss13C 
3>13D 
313D 
313E 
S13F 
3140 
3143 
3145 
3144 
3147 
3149 
3149 
314B 
S14C 
S14E 
S14r 
151 
3152 
3153 
3154 
3155 
3155 
3155 
51595 
3157 
3158 
3159 
>15B 
315D 
315E 
S15rF 


Ol 


46 


&B 


08 


05 


7A 


Sc 


15 


80 
01 


- 


ADC HL,DE 
EXX 

EXX 

RR H 

RR L 

EXX 

RR H 

RR L 

EXX 

RR B 

RR C 

EXX 

RR C 

RRA 

DINZ $3114 
EX DE,HL 
EXX 

EX DE,HL 
EXX 

POP BL 
POP HL 


LD A,B 
ADD C 

IR NZ,$313B 
AND A 

DEC A 

CCF 


RLA 
CCF 

RRA 

JP P,$3144 
IR NC,$31AD 
AND A 

INC A 

JR NZ,$3151 


IR 6,$3151 
EXX 

BIT 7,D 

EXX 

JR NZ,$31AD 
LD (HL)I,A 
EXX 

LD A,B 

EXX 


; 
TSTNOR JR NC,$316C 


LD A,(HL) 
AND A 

LD A,$80 
JR 2Z,$315E 
XOR A 

EXX 

AND D 


ET BEE 7 EEE 7 


ME u EEE u EEE an 


; 
} 
; 
s 
; 


—. we. eo. WE u EEE a 


HL UND HL’ ADDIEREN 
NORMALER RESISTERSATZ 


HL’ UND HL BEI JEDEM 
DURCHLAUF 1 BIT NACH 
RECHTS SCHIEBEN 


BC’, EC UND A NACH RECHST 
ROTIEREN, UM DAS 

NÄCHSTE EIT FÜR DIE 
ADDITION IN DER SCHLEIFE 
INS CARRY ZU ERINGEN 
BITZAHL NOCH NICHT FERTIS 
ERGEBNIS VON HL, HL’ 


NACH DE,BE’ KOPIEREN 


DIE 2 EXPONENTEN (Mi UND Ni) 
UND ZEISER AUF EXPONENT 
ZURÜCKHOLEN 

DIE BEIDEN EXPONENTEN 
ADDIEREN 


CARRY LöSCHEN, WENN ERGEBNIS 0 
EXFONENT ZUR KORREKTUR 
MIT $B0 VORBEREITEN 


DER RICHTIGE EXFONENT 
WIRD ERMITTELT 


POSITIV: KEIN üBERLAUF 
NEGATIV UND KEIN CARRY: 
SONST CARRY LÖSCHEN 
EXPDONENT FERTIG MACHEN 
WENN NICHT OÖ, ALLES IN 
ORDNUNG, SONST üBERLAUF TESTEN 
üBERLAUF RICHTIG 

WENN KEIN CARRY UND BIT? 

VON D’ GESETZT IST, 


ERROR 


DANN DVERFLOW ERROR 
EXPONENT SPEICHERN 

ZUR NDORMALISIERUNG DER 
MANTISSE DAS 5. BYTE 
HOLEN 


3 
; NORMALISIEREN DER MANTISSE FüR ALLE RECHENRDUTINEN 


ZUM NORMALISIEREN 

CARRY GESETZT: UNDERFLOW 
BEARBEITEN: TEST, OBA=%0 
EXPONENT DAFÜR LADEN 

A WAR DO 

SONST A AUF 0 SETZEN 

FüR 2*-128 DEN EXPONENT 
AUF 1, FÜR DO EXPONENT 


183 


3160 
3163 
3164 
3165 
3167 
>1&8B 
3159 
S1&A 
S16&C 
S1&C 
316&E 
Siör 
3171 
3172 
>174 
3175 
3177 
3179 
317A 
S317Ec 
Ss17E 
Ss17F 
>180 
>182 
3182 
>184 
>18& 
3185 
>187 
3189 
>18 
S18E 
S18F 
3191 
3192 
3193 
2195 
>196 
>197 
>198 
3199 
319A 
>19B 
319C 
>19D 
S»19F 
>1AD 
s1Al 
31A2 
31A3 
31A4 
3145 
=1A& 
>1A7 
>1AB 
>1A9 
Z1AA 
>1AR 


184 


FB 2F 


04 


16 


30 


s 
NORMAL 


CALL $2FFB 
RLCA 

LD (HL),A 

JR C,$3195 
INC HL 

LD (HL),A 
DEC HL 

JR #3195 


LD B,32 
EXX 

BIT 7,D 

EXX 

JR NZ,$3186 
RLCA 

RL E 

RL D 

EXX 

RL E 

RL D 

EXX 

DEC (HL) 

JR 2,$3159 


DINZ #31&E 
JR $315D 


RLA 

IR NC,$3195 
CALL $3004 
JR NZ,$3195 
EXX 

LD D,$80 
EXX 

INC {HL) 
JR 2,$31AD 
PUSH HL 
INC HL 

EXX 

PUSH DE 
EXX 

POP BC 

LD A,B 

RLA 

RL (HL) 
RRA 

LD (HLI,A 
INC HL 

LD (HLI,C 
INC HL 

LD (HL) ,D 
INC HL 

LD (HLI,E 
POP HL 

POP DE 

EXX 

POP HL 

EXX 


AU ae NEE a 


ME un ER au 


.. . (as . 


—— NM Eu 


(DIV REES AUF 0 SETZEN) 
AUF NULL SETZEN 
EXPONENT ABSPEICHERN 
SPRUNG BEI 2*-128 

SONST 0 IM 2. BYTE 
SPEICHERN 

AUF 1. BYTE ZEIGEN 
ERGEBNIS EINSCHREIBEN 


MAXIMAL 32 SHIFTS ZUM 
NORMALISIEREN DER MANTISSE 
IN DEN RESS DE, DE’ 

BIS BIT7 VON D’ 

GESETZT IST 

DIE ENTSPRECHENDEN 

SHIFTS AUSFÜHREN 


EXPONENT -1 

WENN EXPDNENT ©-129, DANN 
EXPONENT AUF -128 SETZEN 
SCHLEIFE NOCH NICHT FERTIG 
EIT7 WURDE NIE 1: 

ERGEBNIS IST NULL 

EIN EVTL. CARRY WIEDER 


DAZUADDIEREN 

KEIN üBERLAUF 
SONST MANTISSE AUF 
9 SETZEN 


EXFONENT +1 

FEHLER, WENN üBERLAUF 
ERGEEFNISZEIGER RETTEN 
ZEIGT AUF VORZEICHENBYTE 


ERGEBNIS IN DE’ 


NACH BC BRINGEN 

DAS VORZEICHENBIT 

WIRD AN DIE RICHTIGE 
STELLE (BIT? DES HSCHSTEN 
ERGEBNISBYTE) KOPIERT 

UND ABGESPEICHERT 


DIE WEITEREN 

ERGEBNISBYTES 

ABSPEICHERN 

ZEIGER AUF ERGEBNIS UND 
ZEIGER 2. ZAHL ZURUCKHODLEN 


ZEIGER AUF NÄCHSTE ZAHL 
NACH HL’ HOLEN 


RET 


RST ERRAUS ; FEHLERMELDUNG: 
.„BYT #05 ; "ARITHMETIC DVERFLOR' 


ı SUBROUTINE ZUM AUSFÜHREN EINER DIVISION 


; 32 CALL $3293 ; BEIDE ZAHLEN AUF STACK 
EX DE,HL ; ZEIBER TAUSCHEN 
XOR A ; A LÖSCHEN, UM VORZEICHEN 
; 1. ZAHL ZU ÜBERNEHMEN 
30 CALL $30C0 ; DIVISION VORBEREITEN 
JR C,$31AD ; ERROR, WENN DIVISOR 0 
EX DE,HL ; ZEIGER WIEDER ZURÜCK 
» 30 CALL $30C0 ; DIVIDEND AUFBEREITEN 
RETC ; WENN DIESER 0 IST, ERGEBNIS 0 
EXX ‚ ZEIGER AUF NÄCHSTE 
PUSH HL ; ZAHL ZWISCHENSPEICHERN 
EXX 
PUSH DE ‚ ZEIGER AUF DIVISOR UND 
PUSH HL ‚ AUF DIVIDEND RETTEN 
2F CALL $2FBA ‚ ZAHLEN VOM STACK HOLEN 
ExX 
PUSH HL ; BEIDE EXPONENTEN AUF STACK 
LD H,B ; DEN GANZEN DIVIDENDEN 
\BL;E ; VON BE’,BC NACH 
Ex% ; HL’ UND HL 
LD H,C ; KOPIEREN 
LD L,B 
XoR A ; A UND CARRY LÖSCHEN 
LD B,$DF ; B ZUM ZÄHLEN SETZEN {-33) 
JR $31E2 
3 
RLA ; BUDTIENT NACH LINKS IN 
RL EC ; DIE RESISTER BC',C,A 
EXX ; ROTIEREN 
RL EC 
RL B 
EXX ; REST DES DIVIDENDEN 
ADD HL,HL ; IN HL,HL' MIT 
EXX ; 2 MULTIPLIZIEREN 
ADD HL,HL ; DABEI WIRD EIN CARRY 
EXY ı FÜR VOLLES 32-BIT-ERBEBNIS 
JR C,$31F2 ; BERÜCKSICHTIGT 
’ 
SBE HL,DE ; VERSUCHSWEISE DEN DIVISOR 
ExK ; VOM REST DES DIVIDENDEN 
SBC HL,DE ; SUBTRAHIEREN 
EXX 
JR NE,$31F9 ; SUBTRAKTION GEHT 
ADD HL,DE ; SONST WAR DER DIVISOR 
EXX ; GRÖSSER ALS DER DIVIDEND: 
ADC HL,DE ; DIVISOR WIEDER ZURÜCK- 
EXX ; ADDIEREN (KEIN DIVISIONSBIT) 
AND A ; CARRY LÖSCHEN 
JR $31FA ; WEITER IN DER SCHLEIFE 
AND A ; CARRY LÖSCHEN UND DIVISOR 
SEC HL,DE ; FÜR VOLLE GENAUIGKEIT 
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3232 


32 


D2 


Ei 


18 


18 


1A 


80 


36 


u ee 


EXX 
SBC HL,DE 
EXX 


ScF 
INC B 

JP M,$31D2 
PUSH AF 

IR Z,$31E2 


LD E,A 
LD D,C 
EXX 

LD E,C 
LD D,B 
POP AF 
RR B 
POP AF 
RR B 
EXX 
POP BC 
POP HL 
LD A,B 
SUB C 
JP $313D 


LD A,(HL) 
AND A 


JR NC,$3221 
LD {HL),D 
LD A,32 

JR $3272 


Cr $91 


IR NZ,$323F 
INC HL 

INC HL 

INC HL 

LD A,$8B0 
AND (HL) 
BEC HL 

OR (HL) 

DEC HL 

JR NZ,$3233 
LD A,$80 
XOR (HL) 
DEC HL 

JR NZ,$326C 
LD (HL),A 
INC HL 


Eu EEE 


. 
’ 


} 
; 
; 
; 
; 


-—.—,. ME a NEE ae 


—— WE an — ww. 


EEE u EEE a EEE u WE 


WIEDER AUFADDIEREN {IN DER 
SCHIEBESCHLEIFE) 


1 BIT IM QUOTIENT SETZEN 
ZÄHLER -(-1) 

NOCH NICHT FERTIG 

CARRY RETTEN 

ES WIRD EIN NUTZLOSER VERSUCH 
GEMACHT, EIN WEITERES BIT IM 
ERGEBNIS ZU GEWINNEN 

DIE 4 MANTISSENEYTES DES 
BUDTIENTEN NACH 

DE UND DE’ KOPIEREN 


DAS 33. UND 534. BIT 
IN DAS REGISTER B’ 


BRINGEN 


DIE BEIDEN EXPONENTEN HOLEN 
ZEIGER AUF ERGEBNIS 

DEN EXPONENTEN DES ERGEBNISSES 
IN A BERECHNEN UND ZUM 
NORMALISIEREN 


SUBROUTINE ZUM ABTRENNEN DES INTEGERTEILS EINER 
VARIABLEN 


EXPONENT LADEN 

FALLS DIESER O0 IST, IST ES 
BEREITS EINE INTEGERZAHL 
EXFONENT MUSS >$81 (ZAHL >1) 
SEIN 

SONST WIRD DER INTEGER- 
TEIL AUF 0 GESETZT (32 BIT) 


EXPONENT LADEN UND FÜR 

1& EIT INTEGER UND DIE ZAHL 
-55936 VERGLEICHEN 

KANN NICHT -4553& SEIN 

4. BYTE FüR -55536 PRÜFUNG 
ADRESSIEREN 


DAVON DAS HÖCHSTE BIT 
PRÜFEN 

DIE ZWEI WEITEREN 

BYTES MüSSEN EBENFALLS 

0 FüR -65536 SEIN 
UNGLEICH 0, TEST ENDE 

DAS VORZEICHEN MUSS 

i UND DER REST 0 SEIN 
ZEIST WIEDER AUF EXPONENT 
NICHT -5553& 

SONST WIRD DIE ZAHL 
-45536 = $91,$80,$00,$00,$00 


BP, pP.» pP (dd LA LA LA CA LA 
Jr oo Ant e.?NnNnNnN0 mc DD 0 


ad ad ee ee A a a CH A 
DWDMIDIDy DI ND ID ND HMM TI N 9 


rd cn ra) ca m 


ro m Jo dd 


2B 


FF 


91 


00 
7A 
01 


FA 
dB 


04 


AD 


44 


38 


4 
u 


38 
05 


LD (HL) ,$FF 
DEC HL 

LD A,24 

JR $3272 


JR NC,$325D 


PUSH DE 
CPL 
ADD $91 


INC HL 
LD D, (HL) 
INC HL 
LD E, (HL) 
DEC HL 


JR C,#325E 


iD E,D 
LD D,0 
SUB RB 


JR 2,$3267 
LD B,A 

SAL D 

RR E 

DINZ $3241 
CALL $2D8E 
POP DE 

RET 


s 
; GROSSE WERTE FÜR 


LD A, (HL) 
SUB $AO 
RET P 


NEG 


PUSH DE 
EX DE,HL 
DEC HL 

LD B,A 

SRL B 

SRL B 

SRL B 

JR 2,$3283 


a EA a EEE a EEE Eu TEE a EEE a TEE a NEE a EEE u NEE a TEE ae TE 


—— m. —— HB a —.: AE a EU u TEE u . 


DURCH $00,$FF,$00,$00,$00 
ERSETZT = -1, DIES IST 
ALLERDINGS EIN FEHLER! 
24 BIT AUF NULL SETZEN 


SPRUNG, WENN EXPONENT 

»$92 IST 

STKEND ZWISCHENSPEICHERN 
EXPONENT IN DEN BEREICH VON 
0 (=144 ALT) BIS 15 (=129 ALT) 
UMWANDELN 

DAS ZWEITE BYTE 

NACH DE LADEN 

UND DAS DRITTE 

NACH E 

HL WIEDER AUF 

DEN EXPONENT SETZEN 

DEFAULT: POSITIVE ZAHL 

TEST, DB ZAHL POSITIV 

JA 

NESATIV: E ENTHÄLT $FF 

BIT FÜR NUMERISCH IN D SETZEN 
TESTEN, OB A >=B (NUR 1 BYTE 
WANDLEN), OHNE A ZU 
VERÄNDERN 

SPRUNG, WENN 2 BYTES 
GEWANDELT WERDEN MÜSSEN 

DAS EINE BYTE NACH E 

UND D LÖSCHEN 

FüR DIE NÖTIGEN SHIFTS A IN 
DEN BEREICH VON 1-7 BRINGEN 
FALLS 0, KEINE SHIFTS 

B Z2äÄHLT DIE SHIFTS 

D UND E SOLANGE NACH RECHTS 
SHIFTEN, BIS B = 0, D. H. 
DIE KORREKTE ZAHL GEFUNDEN IST 
ERGEBNIS AUF STACK SPEICHERN 
STKEND IN DE ZURÜCKLADEN 


“ UNTERSUCHEN 


EXPONENT LADEN 

#AO SUBTRAHIEREN 

RETURN, WENN DEZIMALPUNKT 
ERST AM ENDE ODER NACH DER 
MANTISSE STEHT (NUR INTEGER) 
SONST REST INVERTIEREN, UM 
DIE ANZAHL DER NULLBITS 

ZU BESTIMMEN 

STKEND ZWISCHENSPEICHERN 

HL AUF DAS 

3. BYTE SETZEN 

BITZAHL, DIE NULL ZU SETZEN 
SIND, NACH B LADEN UND 
DURCH & DIVIDIEREN, UM DIE 
VOLLE BYTEZAHL ZU ERHALTEN 
KEIN GANZES BYTE 
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CD 
EB 


7F 


9 


08 


89 


En Ta Ya 


LD (HL) ,O 
DEC HL 
DINZ $327E 
AND 7 

JR 7,$3290 
LD B,A 

LD A,$FF 
SLA aA 

DINZ $32BA 
AND {HL) 
LD CHL),A 
EX DE,HL 
POP DE 

RET 


CALL $329% 
EX DE,HL 


LD A,{HL) 
AND A 

RET NZ 
PUSH DE 
CALL $2D7F 


XOR A 

INC HL 

LD (HL),A 
DEC HL 

LD (HL),A 
LD B,$91 


LD A,D 
AND A 
JR N2,$32B1 


ADD HL,HL 
IR NC,$32B2 
RRE € 

RR H 

RR L 

EX DE,HL 
DEC HL 


u EEE u TEE Er TEE a EEE u 


\ 
[3 
} 
5 
; 


IN 


-—.—-—— 1 a er A u 


ME TEE un Eu 


--—n: 0 ME u TEE u NE a TE a BE a TEE ae TEE an 


SONST DIE BYTES 

LÖSCHEN, BIS B 

NULL IST 

RESTLICHEN BITS IN A 

KEIN WEITERES BIT NULL SETZEN 
B ALS BITZÄHLER SETZEN 

IN A EINE MASKE AUFBAUEN, 

IN BER VON RECHTS DIE BITS, 
(B) ENTSPRECHEND, NULL WERDEN 
LOGISCHES UND MIT DEM BYTE 
AUSFÜHREN UND ZURÜCKSCHREIBEN 
ZEIGER AUF EXFONENT UND 
STKEND ZURÜCKHOLEN 


SUBROUTINE ZUM ABSPEICHERN VON 2 INTEGERZAHLEN 
IN FLOATINGPOINTFORM AUF DEM CALC.-STACK 


SUBROUTINE ZUM SPEICHERN 

li ZAHL AUFRUFEN UND NACH 
ZEIGERTAUSCH DIESE NOCH 
EINMAL AUSFÜHREN (2. ZAHL) 


SUBROUTINE ZUM SPEICHERN EINER INTEGERZAHL 
AUF DEM CALC.-STACK 


FLOATINGFOINTFORM 


WENN DAS ERSTE BYTE NICHT 
NULL IST, IST ES KEINE 
INTEGERZAHL: RETURN 
ZEIGER RETTEN 

DAS VORZEICHEN IN CE UND 
UND DIE ZAHL IN DE HOLEN 
REG A LÖSCHEN 

DAS FüNFTE 


UND BAS VIERTE BYTE 

AUF NULL SETZEN 

B AUF #91 FÜR MAXIMAL 1& 
INTEGERBITS SETZEN 

WENN D NULL IST, WERDEN NUR 
B BIT BENÖTIGT 

SPRUNS BEI MEHR ALS 8 

E EBENFALLS PRÜFEN 

B AUF 0 SETZEN 

DIE GANZE ZAHL IST NULL 
E NACH D LADEN UND 

E MIT NULL LADEN 

B AUF #89 FÜR MAX. B BIT 
SETZEN (B = EXFONENT) 
ZEIGER NACH DE, ZAHL NACH HL 
EXPONENT BEI JEDEM SHIFT 
UM 1 VERMINDERN, BIS 
ÜBERLAUF AUFTRITT 
VORZEICHEN INS CARRY 

DAS VORZEICHEN IN DIE 
ZAHL EINKOPIEREN 

ZAHL UND ZEIGER TAUSCHEN 


S2BE 735 LD (HL),E ; IM DRITTEN BYTE E UND 
S2BF 2B BEC HL 


3260 2 LD (HL),D : IM ZWEITEN D ABSPEICHERN 

s2L1 28 DEC HL 

32C2 7 LD ({HL),B ı EXPONENT INS ERSTE BYTE 

3263 Di POF DE ; STKEND ZURÜCKHOLEN 

3264 69 RET 

3205 ' 

3205 EEE 22 2 2202220202. 20202 7272727272222 2272022222222 2 220222222 2 222 22 222 2020222. 2 2225 
3205 

3265 ; AB HIER UNTERFROGRAMME UND TABELLEN DES 

3265 ; FLOATING-POINT-CALTULATORS 

3205 ' 

3268 s TABELLE MIT DEN KONSTANTEN NULL, EINS, 0.5, PI/2, ZEHN 
3265 ; 

3205 00 ‚BYT $00,$80,$00 ; NULL 

32C& ED 

3267 00 

3268 40 .„EYT #40, $B0,800,$01 5; EINS 

3269 BO 


s2CA 00 
32CB 51 


32CC 30 „BYT $30,800 0.5 

32L.D 09 

SZLE Fi „BYT $F1,849,$0F,#DA,$A2 ; P1/2 

S2CE 49 

32D0O OF 

32D1 DA 

32D2 &R2 

s32D3 40 «EYT #40, 880, #00,#0A ; ZEHN 

3294 Bo ü 

32D5 00 

B2DE GA 

3297 

32D7 ; TABELLE DER "OPEDDES”’, DIE DEM "RST 28°, 
3207 ı BEFEHL {CALCULATDRAUFRUF) FOLGEN MIT DEN 
32D7  DAZUGSEHSRIGEN SFRUNGADRESSSEN 

=2D7 ; 

3207 

32D7 BF 35 «WOR $355F ‚ 002 SFRUNG, WENN WAHR 
3209 36 34 «WOR $343C ı Öl: TAUSCHEN 

32DB Al 33 .WOR $33A1i ı 02: LÖSCHEN 

32DD OF 30 «WOR SUEBTRA ; Q3: SUBTRAHIEREN 
szoFr CA 30 «KOR MULTIP : D4: MULTIPLIZIEREN 
32Ei AF 31 :WOR £31AF ı 05: DIVIDIEREN 
S32eE35 81 58 .WOR $3851 Oder HOCH 2 192) 
32E5 1B 35 «WOR #351B ; 07: ODER 

32E/ 243 39 «WOR $3524 68: LOSISCHES UND 
32E7 3B 35 :WOR #353B ; 09: UNGLEICH 

SZEB 3B 32 «WOR $353B  ÖA: KLEINER ALS 
32ED SB 38 ‚:WOR #353B » OB: STRINGS UNSLEICH 
SZEF SE 35 «KOR #353B ı öC: NICHT GROSSER 
s2rfi 3B 35 :WOR $353EB OD: NICHT KLEINER 
sera 38-35 «WOR #353B : DES -STRINSS SLEICH 
32F5 14 30 :WOR ADDIER ; DOFi ADDIEREN 

ser2 2D 30 .WOR #5352D ı 10: STRING AND NUMBER 
3s2F9 38 35 «WOR #353B -I13 STRINS {= 

S32FB 38:38 «WOR #353B 123 STRING >= 
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S32FD 
S32FF 
3301 
3303 
3305 
3307 
3309 
330B 
5>30D 
S30F 
3311 
3313 
3315 
3317 
3319 
S31B 
331D 
5245 
3321 
3323 
3325 
3327 
3329 
332B 
>32D 
332F 
3331 
3333 
3335 
3357 


3339 


335B 
>35D 
S3sF 
S341 
3343 
3345 
3347 
3349 
354B 
334D 
S54r 
3351 
3353 
3359 
3357 
3359 
339B 
335B 
335B 
335B 
335B 
3>35B 
335B 
335B 
335B 
>35B 
335B 
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«KOR #353B ; 13: STRINGS > 
«WOR $353B 14: STRING > 
‚WOR #£353B 15: STRING £ 


‚:WOR #353B 16: STRING = 
«WOR $359C 17: STRINGADDITIODN 
.WOR $35DE 18: VALS$ 
«WOR #34BC 19: USR$ 
.WOR #3645 IA: READIN 
‚.WOR #344E IB: NEGIEREN 
.WOR $3669 IC: CODE 
‚WOR #35DE iD: VAL 

«WOR $3574 IE: LEN 

«WOR #37B5 IF: SINUS 
‚:WOR $37AA 20; COSINUS 
«WOR #37DA 21: TANGENS 


‚.WOR $3853 
‚WOR +3843 


22: ARCUSSINUS 
23: ARCUSCOSINUS 


> 
; 
; 
’ 
’ 
’ 
.WOR $37E2 ı 24: ARCUSTANGENS 
.WOR $3713 ; 25: LN (LOGARITHMUS) 
.WOR $3604 ; 26: EXP (E HOCH X) 
.WOR $I6AF ; 27: INT(EGER) 
‚HOR $3844A ‚ 28: SER (WURZEL) 
‚HOR $3492 ; 29: SGN (VORZEICHEN) 
‚WOR ABSOLU ; 2A: ABS (BETRAG) 
‚WOR $34AC ; 2B: PEEK 
.WOR $3445 ; 20: IN 
.HOR $34B3 ; 2D: USR MIT ZAHL 
‚HOR $361F ı 2E: STR$ 
‚HOR $3509 ; 2F: CHR$ 
.WOR $3501 ; 30: NOT 
.HOR VERDO ; 31: DUPLIZIEREN 
.WOR $36A0 ‚ 32: N MDD M-DIVISION 
.HOR $3686 ‚ 33: SPRUNG 
.HOR $3306 ; 34: DATEN AUF STACK 
.NOR $367A ; 35: DINZ 
‚HOR $35086 ‚ 36: KLEINER 0 
‚WOR $34F9 ; 37: GRÖSSER 0 
.HOR $369B ; 38: ENDE CALCULATOR 
‚HOR $3783 ; 39: HOLE ARSUMENT 
.WOR $3214 ; 3A: ABSCHNEIDEN MIT RUNDEN 
‚HOR $33A2 ; 3B: FP-LCALC-2 
.HOR $2D4F ı 30: IN FLOATING-ZAHL WANDELN 
.HOR $3297 ‚ 3D: WIEDER AUF STACK LEBEN 
„WOR $3449 ; 3E: POLYNOMENTWICKLUNG 
.HOR $341B ; 3F: NULL AUF STACK 
‚WOR $342D ; 40: SPEICHERE IN MEMO ETC. 
.WOR $340F ; 41: HOLE VON MEMO ETC, 
CALCULATOR: 


AUFRUF NORMAL DURCH RST $28 (RST CALRUF). 

HINTER DEM RST #28 BEFEHL FOLGEN EIN ODER MEHRERE 
BYTES, DIE DIE AUSZUFÜHRENDEN DPERATIONEN GEMASS 
DOBENSTEHENDER TABELLE BESTIMMEN {MAN KANN DIESE 
BYTES ALS PSEUDD-DOPERATIONSCODES BEZEICHNEN). 

DIE RECHENDPERATIDNEN BEZIEHEN SICH IM ALLGEMEINEN 
AUF DEN ODER DIE ’LETZTEN WERT(E)’ IM CALCULATOR- 
STACK. EIN LETZTER WERT (GENAU 5 BYTES) KANN EINE 


67 


7) .: BE u TEE . 


CA 
{n 


Sc 


RECH2 


65 SC CLODOP 


80 33 


a1) 


FB 


D7 3 


00 


FF 


ECHNE CALL $35BF 


LD A,B 
LD {BREB),A 
EXX 


EX (SP) HL 
EXX 


LD (STKEND),DE 


EXX 

LD A,{HL) 
INC HL 
PUSH HL 
AND A 


IP P,$3380 
LD D,A 
AND $60 
RRCA 
RRCA 
RRCA 
RRCA 

ADD +76 
LD L,A 
LD A,D 
AND $IF 
JR #338E 


EP #18 
JR NG, #£338BC 


EXX 

LD BC,$FFFB 
LD D,H 

LD E,L 

ADD HL,BE 
EXX 

RLCA 

LD L,A 

LD DE,$32D7 
LD H,0 

ADD HL,DE 
LD E, (HL) 
INC HL 

LD D,CHL) 
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FLOATINGPOINTZAHL ODER STRINGPARAMETER SEIN. 
ZUSÄTZLICH BENUTZT DER CALCULATOR EINIGE SPEICHER- 
PLÄTZE ZUR ZWISCHENSPEICHERUNG VON TEILERGEBNISSEN 
ETC., DIE MIT MEMO - MEMS BEZEICHNET SIND UND 
JEWEILS 5 BYTES UMFASSEN. 


IN HL DIE ADRESSE VOM 
LETZTEN WERT UND IN DE 
STKEND LADEN 

EINEN EINFACHEN DPERATIONS- 
OFFSET ODER, BEI REKURSIVEM 
AUFRUF, DEN ZAÄHLSTAND 

NACH BREG LADEN 
RETURNADRESSE IN HL’ SPEICHERN 
RECH2 IST DER EINSTIEG 

FÜR REKURSIVE AUFRUFE, BEI 
DENEN BREG NICHT VERÄNDERT 


; WERDEN DARF (ZÄHLER) 
; EINSTIES, UM DIE EINZELNEN 


DPEDDES ABZUARBEITEN, DAZU 
ERST STKEND NEU SETZEN 

2. REGISTERSATZ EINSCHALTEN 
AKTUELLEN OPEOBE LADEN 
ZEIGER DARAUF +1 

UND ZWISCHENSPEICHERN 

A TESTEN, UM DIE EINFACHEN 
DPCODES VON DEN MEHRFACHEN 
ZU TRENNEN 


; SPRUNS BEI EINFACHEN 


NPCODE IN D RETTEN 
NUR BIT 5 UND & 
BETRACHTEN UND 


; NACH BIT 1 UND 2 


SCHIEBEN 


2x#I3E ALS BASIS ADDIEREN 
FÜR TABELLE NACH L 
BIT DO - 4 AUSBLENDEN 


UND ZUR ADRESSUCHE 


SPRUNG, WENN NUR EINE 
OPERATION, 2. B. SINtX), 
AUSZUFÜHREN IST 

BEI DOPPELDPERATIDNEN (+ ETE,) 
MUSS HL AUF DEN ERSTEN 

UND DE AUF DEN 

ZWEITEN DPERANDEN 

ZEIGEN 

2. REGISTERSATZ EINSCHALTEN 
Ax2 FÜR SPRUNSADRESSEN 

NACH HL OFFSET LADEN UND 
NACH DE DIE TABELLEN- 
ADRESSE 

ADRESSE DER BENÖTIGTEN 
SPRUNGADRESSE BERECHNEN 

UND DIE SPRUNGADRESSE 

NACH DE LADEN 
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co 


£) cc E23 
Krd 


DEN u 12 Bu 23 u ee Be 
ME Du «en Bu »25 Bu 0 Bu 2 Bu 


21 


ED 


L9 


65 


4B 65 SC 


67 


03 
05 


SB 
Co 
33 


Ah? .: 


Bö 


+ 
Dir, 


Du 


st 


05 
IF 


ac 


Sc 
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3 
3 
; 


PLATZS PUSH DE 


. 
; 


" 
’ 


VERDO CALL PLATZS 


u. WE u TE an 


LD HL,CLOOF ; RüCKEHRADRESSE IN CALL,.- 
; ROUTINE LADEN 

EX (SP},HL ; AUF STACK LEGEN UND HL’ 
; WIEDER ZURUCKHDOLEN 

PUSH DE ; SUBROUTINADRESSE FÜR RETURN 
; AUF BEN STACK SPEICHERN 

EXX ; NORMALER RESISTERSATZ 


LD BE,(STKEND+1) ; BREG NACH B LADEN 
RET ; INDIREKTEN SPRUNG IN DIE 
ı ENTSPRECHENDE ROUTINE 


SUBROUTINE ZUM L5SSCHEN DES LETZTEN WERTS IM 
CAL.-STACK (DPEODDE #02), DER AUFRUF FÜHRT 
NUR AUF DAS OBISE 'RET’, SODASS NUR HL ALS 
ZEIGER AUF BEN LETZTEN WERT UM 5 BYTES {= 1 
CALT.-VARIABLE) VERMINDERT WIRD, ALSD AUF 

DEN VORLETZTEN ZEIST, DADURCH WIRD DER BIS- 
HERIGE LETZTE WERT NICHT MEHR ADRESSIERT 

UND BEI DER NÄCHSTEN DPERATIDN ÜBERSCHRIEBEN, 


SUBROUTINE LM EINE DPERATION AUSZUFGHREN (AUFRUF 
BEI DER ENTWICKLUNG VON AUSDRÜCKEN, DPCODE #3) 


POP AF ;ı RETURNADRESSE CLODFP WEG- 
LD A,(BREG) ; WERFEN UND OPCODE LADEN 
EXX ı 2, REGISTERSATZ EINSCHALTEN 
JR $335C ; BENOTISTE ADRESSE BESTIMMEN 


SUBROUTINE ZUM ÜBERPRÜFEN, DB NOCH 5 SPEICHER- 
FLATZE (= 1 FLOATINSPOINTZAHL) FREI SIND 


DE UND 


’ 
PUSH HL ; HL ZWISCHENSPEICHERN 
LD BC,5 ; DEN TEST FÜR DIE 5 NOT- 
CALL $1FoS ; WENDIGEN PLÄTZE MACHEN 
POP HL ; DIE RESISTER WIEDER 
POP DE ; ZURÜCKLADEN 
RET 


SUBROUTINE, UM 1 ZAHL AUF DEN STACK ZU 
BRINGEN 


LD DE,(STKEND) ; STKEND LADEN 


CALL VERDD ; DEN TRANSFER AUSFÜHREN 
LD (STKEND),DE ; STKEND NEU SETZEN 
RET 


SUBROUTINE ZUM UMSPEICHERN EINER FLOATING- 


; POINTZAHL (AUCH DOPEODE #31= VERDOPPELN) 


; SPEICHERPLATZTEST 
LDIR ; TRANSFER DURCHFÜHREN 
RET 


SUBROUTINE ZUM ABSPEICHERN EINER FLOATINGPOINT- 
ZAHL, DIE DEM OPEODE #34 DIREKT FOLGT. DAS 1. 
BYTE, WELCHES DER EXPONENT IST, GIBT HIERBEI 
DIE ANZAHL BER NOCH FOLGENDEN MANTISSEN- 


3305 
33C6 
3306 
3366 
3367 
3368 
>3CB 
33CLC 
>3CD 
SSCE 
>3CF 
33CF 
33D0 
35D1 
>3D3 
33D4 
>3D5 
33D6 
>3D7 
>3D8 
>3DA 
33DE 
3300 
>3DD 
>3DE 
S33E0 
>3E1 
33E3 
>3E4 
>3E5 
>3E6 
>3E8 
>3EA 
>3EB 
>3EC 
33ED 
S33EE 
S>3EF 
>3F0 
S3Fil 
S33F2 
S33F3 
>3F4 
S3F5 
>3F7 
33F7 
>3F7 
>3F7 
33F7 
33F7 
>3F8 
33F9 
S>3FA 
S>3FB 
S>3FE 
2401 
3401 
3401 


A7 
CE 
F3 


D5 


11 00 00 
CD CB 33 


A9 


co 


30 


05 


50 
Bo 


FA 


+ 


% 
DRCe 


kur 


; STELLEN AN (BIT 7 UND &), DER REST WIRD MIT 


3 
} 


-——_ ME u TE an 


NULLEN AUFGEFÜLLT 


LD H,D 

LD L,E 

CALL PLATZS 
EXX 

PUSH HL 

EXX 

EX (SP) ,HL 


PUSH BC 

LD A, (HL) 
AND $C0 
RLEA 

RLCA 

LD C,A 

INE EC 

LD A, HL) 
AND &£3F 

IR NZ,$23DE 


INC HL 

LD A,{HL) 
ADD $50 
LD (DE),A 
LD A,5 
SUB C 

INC HL 
INE DE 

LD B,O 
LDIR 

POF EC 

EX (SP) ,HL 
EXX 

POP HL 
EXX 

LD B,A 
XOR A 

DEC B 

RET Z 

LD (DEI,A 
INC DE 

IR $33F1 


AND A 
RET 2 

PUSH AF 
PUSH DE 

LD DE,O 
CALL $33C8 


EEE u EEE a En EA TE EEE EEE Eu 


=. sn 8 an WE an TE an 


ME ae 


HL FüR DEN NEUEN LETZTEN 
WERT SETZEN 

SPEICHER TESTEN 

DEN ZEIGER AUF DEN 
NÄCHSTEN OPCODE IN 

HL’ RETTEN 

DPECODEADRESSE MIT ERGBNIS- 
ZEIGER TAUSCHEN 

BC ZWISCHENSPEICHERN 
EXPODNENT LADEN UND DIE 
NACHFOLGENDE EYTEZAHL 
DURCH DIVISION MIT #40 
ERMITTELN 

ERSEENIS NACH C UND 

UM 1 ERHÖHEN 

EXPONENT LADEN 

BITS 5 - 0 NEHMEN 

ZUR EXFONENTERMITTLUNG, 
FALLS ©>0, ANDERNFALLS 
BESTIMMT DAS NÄCHSTE BYTE 
DEN EXPONENTEN 

DEN RICHTIGEN EXPONENT 
ERMITTELN UND SPEICHERN 
ANZAHL DER AUFZUFÜLLENDEN 
NULLEN IN A BERECHNEN 

HL UND DE AUF DAS 

1. BYTE UND BC ALS 

ZÄHLER SETZEN 

UMSPEICHERN 

BCE VOM STACK ZURÜCK 
ERGEBNISZEISER IN HL LADEN 
ZEIGBER AUF NÄCHSTEN OPEODE 
NACH HL’ BRINGEN 


E ALS ZÄHLER FÜR NULLEN 

A LESCHEN 

ZÄHLER -1 

KEINE NULL MEHR SPEICHERN 
i NULL EINSCHREIBEN 
ZEIGER (STKEND) ERHÖHEN 


SUBROUTINE ZUM SUCHEN DER KONSTANTEN IN 
DER CALCULATORTABELLE, 
A STEHEN 


DIE NUMMER MUSS IN 


WENN DIE GESUCHTE KON- 
STANTE GEFUNDEN, RETURN 
ZÄHLER ZWISCHENSPEICHERN 
DE EBENFALLS 

ES WIRD EIN BLINDES 

LADEN EINER KONSTANTEN 

IN DAS ROM DURCHGEFÜHRT, 
DAMIT HL BIS ZUR RICHTIGEN 
ADRESSE GEZÄHLT WIRD 
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3401 
3401 
>402 
3403 
3404 
3406 
3406 
34068 
405 
3406 
3406 
3407 
3408 
3409 
>40A 
>40B 
340D 
S>40E 
S40F 
SAa0dF 
SA0oF 
Saor 
S4oF 
S40F 
3410 
3413 
5416 
3419 
Sala 
S>41B 
S41B 
>41B 
S41B 
341B 
S34lc 
>41D 
S41E 
Salr 
3422 
3422 
3423 
3426 
5429 
>A2A 
>42B 
>42C 
>42D 
342D 
>42D 
>42D 
342D 
>42D 
>42D 
>42D 
SA2E 
>42F 
>432 
3435 
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Di 
Fi 
SD 
i8 


F2 


00 


68 SC 
06 34 
CO 33 


[5 32 


F7 35 
Ce 33 


68 SC 
D& 34 


 .—-— tat an A tan 


| ee ae ar 


u u Ta Tan 


wo NEE ae Na 


POP DE 
POP AF 
DEC A ; 
JR $33F8 ; 


DE UND A WIEDER 
LADEN 

ZÄHLER -1 

TESTEN, DB GEFUNDEN 


SUBROUTINE ZUM AUSRECHNEN DER ADRESSE EINES 
3 BYTE-BEREICHS IN DEM CALCULATORSPEICHER- 


BEREICH (MEMO BIS MEMS) 


LD C,A ; 
RLEA ; 
RLCA 

ADD C ; 
LD C,A - 
LD B,0O N 
ADD HL,BC ; 
RET 


MEM-NUMMER NACH C 
MIT 4 MULTIFLIZIEREN 


C ADDIEREN, ALSD 5*NUMMER 


; ERGEBNIS NACH 


BC KOPIEREN UND 
ZU HL ADDIEREN 


EINE VARIABLE VOM CALCULATORSPEICHER (MEMO 
BIS MEM5) IN DEN CALC.STACK HOLEN (DPCDDES 
$EO BIS $ES) ALS LETZTER WERT 


PUSH DE 


y 
LD HL,(MEM) ; 
CALL #340& ; 
CALL #33C0 ; 
POP HL - 
RET : 


SUBROUTINE ZUM ABLEGEN 


ZEIGER AUF ERGEBNIS RETTEN 
BASISADRESSE DES MEM-BEREICHS 
ADRESSE VON MEM-X SUCHEN 
TRANSFER DURCHFÜHREN 

ZEIGER AUF 1. BYTE DES 
LETZTEN WERTES IN HL 


EINER KONSTANTEN AUF 


DEM CALC.-STACK (OPCODES $AO - #A4) 


LD HL,$32C5 


m 
> 
> 
- - ns - u 


EXX 

CALL $35F7 

CALL #33C8 

EXX 

FOF HL 

EXX 

RET 

‚END 

‚LIB SPEC3400-5 


.— 1] a 


; HL AUF DIE ADRESSE 


DES ERGEBNIS SETZEN 
ZEIGER AUF NÄCHSTEN 


; OPCODE RETTEN 


BASISADRESSE DER KON- 


; STANTENTABELLE LADEN 


BENÖTIGTE KONSTANTE SUCHEN 
IN DEN CALC.-STACK KOPIEREN 
ZEIGER AUF NÄCHSTEN 

DPCODE WIEDER NACH HL’ 


SINCLAIR ZX SPECTRUM SPEC3400-5 


SUBROUTINE ZUM SPEICHERN DES LETZTEN WERTS 
IN MEMO BIS MEMS (OPCDODES $C0 - $C5) 


PUSH HL ; 
EX DE,HL ; 
LD HL, (MEM) 
CALL $3406 ' 
EX DE,HL 


ZEIGER AUF LETZTEN WERT 


; RETTEN UND NACH DE KOPIEREN 


BASISADRESSE DES MEM-BEREICHS 
ZIELADRESSE AUSRECHNEN 
FüR DEN TRANSFER MUSS ZIEL- 


3436 CD CO 33 CALL 3300 ; UND QUELLADRESSE GETAUSCHT 
3439 ; WERDEN 

3439 EB EX DE,HL ; STKEND (=LETZTER WERT +5) 
3434 ; WIEDER NACH DE LADEN 

343A Ei POP HL ; ZEIGER AUF LETZTEN WERT 
3438 (9 RET ; NACH HL ZURÜCKHOLEN 

343€ - 

343[ ; SUBROUTINE ZUM AUSTAUSCHEN DER BEIDEN LETZTEN 
3430 ; WERTE IM CALC.-STACK 

343C ; 

3430 06 05 TAUSCH LD B,5 ; B ALS ZÄHLER SETZEN 

343E 1A LD A,(DE) ; 1 BYTE DER ZWEITEN UND 
343F 4E LD C, (HL) ı 1 BYTE DER ERSTEN ZAHL 
3440 EB EX DE,HL ; ZEIGER TAUSCHEN 

3441 12 LD (DE),A ; BEIDE BYTES 

3442 71 LD {HL),C ; ZURÜCKSCHREIBEN 

3443 23 INC HL ; DIE BEIDEN ZEIGER 

3444 13 INC DE ; UM 1 ERHÖHEN" 

3445 10 F7 DINZ $343E ; 5 BYTES NOCH NICHT 

3447 ; AUSGETAUSCHT 

3447 EB EX DE,HL ; ZEIGER KORRIGIEREN 

3448 C9 RET 

3449 - 

3449 : SUBROUTINE ZUM GENERIEREN VON POLYNOMEN 

2449 ı BEI FUNKTIONEN WIE SINUS, ATN ETC. 

3449 ; (OPCODES $854,$88,$8C = $3E IN TABELLE) 

2449 ; 

3449 47 LD B,A ; PARAMETER NACH B LADEN 
344A CD 5E 33 CALL $#325E ; UND DAMIT BREG ALS 

3440 ; ZÄHLER SETZEN 

>44D : 

344D : DEN LETZTEN WERT 'Z’ VORBEREITEN 

344D ; 

344D 31 „BYT $31 ; 2,2, VERDOPPELN 

SA4E OF „BYT £0F ; 2*2, ADDIEREN 

344F CO „BYT $C0 ; 2*Z, NACH MEMO SPEICHERN 
3450 02 ‚BYT #02 ; - LÖSCHEN 

3451 AO ‚BYT $A0 ; 0, NULL IN CALC.-STACK 
3452 C2 ‚BYT $C02 ; D, NACH MEM2 SPEICHERN 
3453 > 

3453 ; IN DER FOLGENDEN SCHLEIFE WERDEN DIE 

3453 ı KDEFFIZIENTEN BERECHNET: 

3453 ; B{M)=2#*7#B(M-1) - BiM-2) + C(M), WOBEI 

3453 ;M = 0... N. DIE KONSTANTEN CiM) STEHEN 

3453 ; HINTER DEM JEWEILIGEN AUFRUF DIESER 

3453 ; ROUTINE 

3453 ; 

3453 31 POLYS .BYT $31 ; B{M),BtM), VERDOFPELN 
3454 E0 „BYT $E0 ı B{M},B(M),2*Z, MEMO LADEN 
3455 04 ‚BYT #04 ; B{M),2*Z#B{M), MULTIPLIZIEREN 
3456 E2 ‚BYT $E2 ; B{M},2*Z#BiM),B(M-1) MEM2 LADEN 
3457 01 ‚BYT $Ci ; B{M-1}NACH MEMI SCHREIBEN 
3458 03 ‚BYT $03 ı B{M) ,2*Z#BiM)-B{M-1) 

3459 38 „BYT #38 ; ENDE 

345A - 

345A ; NÄCHSTE KONSTANTE IN DEN CALC.-STACK LADEN 

3454 ; 

345A CD Ch 33 CALL $33C04 ; B{M) ,2#*Z#B(M)-BIM-1) ,CiM+1) 
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06 
18 


FF 
06 


E? 34 


20 


DB 


80 


7F 2D 


BE 2D 


CALL 


«BYT 
.BYT 
«BYT 
„BYT 
«BYT 
.BYT 


‚ BYT 
«BYT 
„BYT 
RET 


£öF 
+01 
02 
#02 
35 
$EE 


$E1 
+03 
+38 


EEE NEE u NEE a ME a EEE 


WIEDERAUFRUF DES CALCULATORS, 
OHNE BRES ZU VERÄNDERN 

B{M) „2#Z#B(M)-BM-1)+C(M+1) 
2*7#B{M)-B(M-1)+C(M+1),B(M) 
B{M) NACH MEM2 SPEICHERN 
BiM+1)=2#*Z#B{M)-B(M-1)+CM+1) 
B{M+1), SCHLEIFENZÄHLER -1 
SPRUNG NACH FOLYS, WENN 

NOCH NICHT FERTIG 

B(M) ,BM-2), MEM2 LADEN 
KDEFF,=B{M)-B{M-2) 

ENDE 


DIE "ABS(-OLUT) '-FUNKTION (DPEDDE #2A) 


; 
ABSOLU LD B 


=. we wu a Tai 


.. un 


JR $ 


‚sFr 
3474 


[3 
} 
; 


B INITIALISIEREN UND IN 
DIE NESIERROUTINE SPRINGEN 


SUBROUTINE ZUM WECHSELN DES VORZEICHENS 
DES LETZTEN WERTS IM CALC.-STACK 


(NEGIEREN 


RET 
LD B 
LDA 
AND 


JR 7,$3483 


ING 
LDA 
AND 
OR ( 
RLA 
CEF 
RRA 
LD ( 


DEC 
RET 


VORZEICHENÄNDERUNGEN 


PUSH 
PUSH 


CALL $2D7F 


= DOPCODE #1B) 


EGIER CALL $34E9 


C 

‚0 
‚{HL) 
A 


HL 
‚B 


£80 
HL) 


HL), A 


HL 


DE 
HL 


POP HL 


LDA 
DR C 
CPL 

LDE 


CALL #2DSE 


‚B 


‚A 


POP DE 


RET 


.: 1 Eu NEE a Eu A un 


WENN DIE ZAHL DIE NULL 
IST, NICHTS ÄNDERN 

B FüR NEGIEREN SETZEN 
WENN DAS 1. BYTE NULL 
IST, HANDELT ES SICH 
UM EINE INTEGERZAHL 
ZWEITES BYTE ADRESSIEREN 
BIT 7 = 1 FüR ’ABS’ 
UND = 0 FüR NEGIEREN 
BIT7 FüR ABS SETZEN 
DIESES BIT WIRD üBER 
DAS CARRY INVERTIERT 


BYTE MIT GEÄNDERTEM VOR- 
ZEICHEN ZURUCKSCHREIBEN 
AUF ERSTES BYTE ZEIGEN 


BEI INTEGERZAHLEN 


Er TEE a NEE u TEE ae TE a a 


STKEND ZWISCHENSPEICHERN 
ZEIGER AUF DIE ZAHL RETTEN 
VORZEICHEN NACH C, ZAHL 
NACH DE LADEN 

ZEIGER AUF DIE ZAHL ZURÜCK 
&FF FüR ABS, #00 FÜR NEG, 
VORZEICHEN FÜR ABS IMMER $FF 
VORZEICHEN INVERTIEREN 

NACH CE KOPIEREN UND DIE 
INTEGERZAHL ZURÜCKSPEICHERN 
STKEND WIEDER LADEN 


SUBROUTINE ZUM AUSWERTEN DES VORZEICHENS: 
-1, POSITIV =+1, NULL =0 (SIEN- 


NEGATIV = 


3492 
3492 
3492 
3492 
3495 
3496 
3497 
34a 
349B 
349D 
349E 
349F 
34A0 
3443 
3444 
3445 
3445 
34A5 
34A5 
>4AB 
3AAA 
Saat 
SAAc 
S4AC 
34Ac 
Saar 
34B0 
534B3 
34B5 
34B3 
S4B3 
34B3 
34B3 
>4B3 
S34B3 
34B6 
54Bö6 
34B9 
34BA 
34BB 
34BC 
34BC 
>4BC 
34BC 
S>ABF 
3460 
Saci 
34C2 
3404 
3465 
3468 
34CA 
SAct 
34Ccc 
S>Acc 
34CE 
>4D0 
5>4D2 


E? 


01 


16 


BE 


99 


28 


99 


2B 


Fi 


34 


00 


2D 


lE 


iE 


zD 


jiE 


2D 


2B 


26 


-.——-—— ME ae EEE a EEE un 


FUNKTION MIT OPCODE $29) ALS LETZTEN WERT 
SPEICHERN 


CALL $34E9 WENN DIE ZAHL NULL IST, 


’ 
RETC ; DIREKT RETURN 
PUSH DE ; STKEND ZWISCHENSPEICHERN 
LD DE,1 ; INTEGERZAHL 1 NACH DE 
INC HL ; 2. BYTE ADRESSIEREN 
RL (HL) ; VORZEICHEN INS CARRY 
DEC HL ; ZEIGER WIEDER AUF 1. BYTE 
SEC A ; FüR POSITIVES VORZEICHEN OÖ 
LD C,A ; NEGATIV $FF NACH C 
CALL #2D8BE ; DIE INTEGERZAHL +/-1 SPEICHERN 
POP DE ; STKEND ZURÜUCKLADEN 
RET 


BEFEHL "IN’ (LADEN EINES PORTS, OPCODE $2C) 
CALL $1E99 ; PORTADRESSE NACH BE LADEN 
IN A,(C) ; INPUTBYTE LADEN UND 
JR $534B0 ; AUF DEM STACK ABLEGEN 


BEFEHL 'PEEK’ (DOPCODE #£2B) 


CALL $1E9? ; ADRESSE IN BC BRINGEN 
LD A,(BÜC) ; BYTE DIESER ADRESSE LADEN 
JP *2D28 ; UND A AUF DEN STACK 


BEFEHL 'USR’ MIT ZAHLEN (OPCODE $2D) 
IM MASCHINENPROBRAMM DüRFEN ALLE PROZESSORREGISTER 
AUSSER HL’ BENUTZT WERDEN. WIRD HL’ TROTZDEM 
GEBRAUCHT, MUSS VOR DEM ENDE DES MASCHINENPROGRAMMS 
HL’ MIT #2758 GELADEN WERDEN 
CALL $1E99 ; DIE STARTADRESSE DES MASCHINEN- 

; PROGRAMMS NACH BC HOLEN 
LD HL,$2D2B ; RETURNADRESSE FÜR BC AUF 
PUSH HL ; DEN STACK ZU SPEICHERN 
PUSH BC ; INDIREKTER SPRUNG ZUM 
RET ; MASCHINENPROGRAMM-ANFANG 


BEFEHL ’USR A#’ (OPCEODE #19) 


CALL $2BFi ‚ PARAMETER DES STRING HOLEN 
DEC BC ; DIE LÄNGE MUSS 

LD A,B ; EINS SEIN 

OR C 

JR NZ,$34E7 ; LÄNGE <>1: ERROR 


L 
LD A,(DE) ; STRINGNAMEN LADEN UND 
CALL $2CBD ; AUF BUCHSTABEN TESTEN 
JR C,#34D3 ; SPRUNG BEI BUCHSTABEN 
SUB $90 ; FüR DIE UNTERSUCHUNG AUF 
; BENUTZERDEFINIERTE GRAFIK (UDG) 
#90 ABZIEHEN, ERGIBT 0 - 20 


3 
JR C,#34E7 ; NICHT IM BEREICH: ERROR 
EP 21 ı BEI > 20 EBENFALLS 
JR NC,$#34E7 ; ERROR 
INC A ; FÜR DEC A IST HIER EIN 
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ED 
D8 
SE 
18 


CD 
18 


AB 


> 6C 


4B 7B SC 


01 


> 2B 2D 


a 
06 


EI 34 
05 
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FUNKTION ’NOT' 
LETZTER WERT WIRD 1, WENN ALTER LETZTER WERT 
NULL WAR, SONST WIRD IMMER DER LETZTE WERT 

ZU NULL GESETZT 


DEC A 
ADD A 
ADD A 
ADD A 
CP $£A8 


IR NC,$34E7 
LD BC, (UD5) 


ADD C 

LD C,A 

IR NC,$34E4 
INC B 

IP $2D2B 


RST ERRAUS 
‚EYT #09 


} 
; SUBROUTINE ZUM TEST, 


PUSH HL 
PUSH BC 
LD B,A 
LD A,CHL) 
INC HL 
OR (HL) 
INC HL 
OR (HL) 
INC HL 
OR (HL) 
LD A,B 
POP BC 
POP HL 
RET NZ 
SCF 

RET 


CALL $34E9 
RET C 

LD A,$FF 
JR $3507 


CALL $34E9 
JR #350B 


-.— 61|)  EE a DE a E u E a E ae a n 


INS A NDTWENDIS 

DIE OPERATIONEN DIENEN DAZU 
DEN OFFSET ZU BERECHNEN UND 
NUR 0-20 DER UDGE UND A-U DER 
BUCHSTABEN ZUZULASSEN, DIE 
ASCII-KERTE DER BUCHSTABEN 
WERDEN AUF DEN BEREICH VDN 

0 - 20 REDUZIERT 

BUCHSTABE NACH U: ERROR 
ADRESSE DER ERSTEN DEFINIERTEN 
GRAFIK NACH BC LADEN 

OFFSET ADDIEREN UND NACH 

BC ZURUCKLADEN 

KEIN CARRY ZU ADDIEREN 

SONST B #1 

DIE ADRESSE AUF DEN STACK 
SFEICHERN 


; FEHLERMELDING: 


"INVALID ARGUMENT 


OB EINE ZAHL NULL IST 


UT AO TEE u TEE u EEE u 


SUBROUTINE ZUM TEST AUF 
TRIFFT DIES ZU, SD WIRD EIN LETZTER WERT 
VON 1 ÜBERGEBEN, ANDERNFALLS 0 


“ 
3 
. 
’ 
D 
L 
" 
’ 
5 
’ 


(DPCODE 


ZEIGER AUF DIE ZAHL UND 
BC ZWISCHENSFEICHERN 

REG A IN B RETTEN 

DAS ERSTE BYTE DER 

ZAHL LADEN UND MIT DEN 
DREI NACHFOLGENDEN ODERN 
(MÜSSEN ALLE O SEIN) 

DAS CARRY WIRD HIERBEI 
GELGSCHT 


REG A, 

BC UND ZEIGER AUF 
DIE ZAHL ZURÜCKLADEN 
ZAHL IST <>0 

ZAHL IST NULL: CARRY 
SETZEN 


">0° (OPCODE #57) 


TEST AUF NULL 

JA: RETURN 

IN DIE ROUTINE 0" SPRINGEN, 
ABER DAS GEGENTEIL MIT '$FF’ 
SIGNALISIEREN 


$50) 


TEST AUF NULL UND SPRUNG, 
UM DO ODER 1 ZU SETZEN 


3306 
3506 
3506 
3307 
3508 
3909 
3I0A 
3S0B 
350B 
>50B 
So0ß 
350B 
350C 
350E 
S3S0F 
3310 
soll 
3512 
3513 
3514 
3914 
3315 
3516 
3917 
3318 
3519 
S91A 
351B 
>51B 
391B 
>31B 
5391B 
391B 
3s1c 
Ssır 
3320 
3521 
3922 
3924 
3924 
3524 
3924 
3924 
3924 
3925 
3328 
3529 
392A 
>92B 
392D 
352D 
332D 
392D 
332D 
>32D 
5>92D 
S352E 
3931 


00 


ET. 


E7 


EI; 


DE 


E9 


34 


-—._:n. WE 1 


8 un ie u NEE a 
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; FUNKTION ’<0‘ (DPCODE $36) 


XOR A ; REG A LÖSCHEN 

INC HL ; AUF VORZEICHEN ZEIGEN 
XOR (HL) ; EXOR MIT VORZEICHENBYTE 
DEC HL ; HL KORRIGIEREN 

RLCA ; VORZEICHENBIT INS CARRY 


SUBROUTINE ZUM SPEICHERN EINER O (CARRY 
GELÖSCHT} ODER EINER 1 ALS LETZTEN WERT 


PUSH HL ; ERGEBNISZEIGER RETTEN 

LD A,0 ; DIE ERSTEN 

LD (HL),A : BEIDEN BYTES LÖSCHEN 

INC HL 

LD (HL),A 

INC HL 

RLA ; CARRY IN A SCHIEBEN, SODASS 

LD (HLI,A ; DRITTES BYTE 1 WIRD, WENN 
‚ CARRY GESETZT WAR 

RRA ; A WIEDER NULL 

INC HL ; DAS VIERTE UND 

LD (HL),A ; FÜNFTE BYTE 

INC HL ; ZU NULL SETZEN 

LD (HLI,A 

POP HL ; ERGEBNISZEIGER ZURÜCKLADEN 

RET 


FUNKTION ’OR’ (DFCODE #07) 
DAS ERGEBNIS DIESER OPERATION (X OR Y) IST X, 
WENN Y NULL IST, ANDERNFALLS i 


EX DE,HL ; HL ZEIST AUF Y (=2,. ZAHL) 
CALL #34E?7 ; TEST, OB Y NULL IST 

EX DE,HL ; ZEIGER WIEDER ORIGINAL 
RET C ; Y IST NULL 

SCF ; CARRY SETZEN UND LETZTEN 
JR #350B ; WERT ZU 1 SETZEN 


FUNKTION "AND’ (DPCODE #08) 
DIE OPERATION 'X AND Y’ LIEFERT X ALS ERGEBNIS, 
WENN Y £> 0 IST, ANDERNFALLS DEN WERT NULL 


EX DE,HL ;s HL ZEIGT AUF Y 

CALL £34E9 ; Y AUF NULL TESTEN 

EX DE,HL ; ZEIGER ZURÜCKTAUSCHEN 

RET NC ; Y IST NICHT NULL 

AND A ; CARRY LöSCHEN UND EINE 
’ 


JR #350B NULL ALS ERGEBNIS SPEICHERN 
FUNKTION ’STRING AND ZAHL’ (OPCODE #10) 

DAS ERGEBNIS DER OPERATION ‘A$ AND X‘ IST 

At, WENN X <>0 15T, IM ANDEREN FALLE WIRD 

EIN NULLSTRING ÜBERGEBEN 


EX DE,HL ; HL ZEIGT AUF X 
CALL #34E9 ; X AUF NULL TESTEN 
EX DE,HL ; ZEIGER ZURÜCKTAUSCHEN 


199 


08 


01 


08 


ri 


Fi 


OB 


04 


16 


>34 


30 


2B 


2B 


Een 


——- (EEE [um 


RET NC 
PUSH DE 
DEC DE 
XDR A 

LD {DE),A 
DEC DE + 
LD {DE),A 
POP DE 
RET 


LD A,B 

SUB 8 

BIT 2,A 

JR NZ,$3543 
DEC A 

RRCA 


JR NC,$354E 
PUSH AF 
PUSH HL 
CALL TAUSCH 
POP DE 

EX DE,HL 
POP AF 

BIT 2,A 

JR NZ,$3559 
RRCA 

PUSH AF 
CALL $300F 
JR $358C 


STRINSOPERATIONEN 


RRCA 

PUSH AF 
CALL $2BFi 
PUSH DE 
PUSH BC 
CALL $2BFi 
POP HL 

LD A,H 

OR L 

EX (SP) ,HL 
LD A,B 

JR NZ,$3575 


JR 27,$3572 
POP AF 


CC 
JR $3588 


-—-— Eu A un RE ne 


——_., a NEE TEE u BE a 


| 


u... ME EEE Eu NEE a TEE 


x IST £>0 

lZEiGER AUF X RETTEN 
HISHEYTEADRESSE DER LÄNGE 
A LÖSCHEN 

DIE BEIDEN 

LANGENBYTES DES STRING 
LÖSCHEN 

ZEIGER AUF DIE ZAHL 
ZURÜCKHOLEN 


VERGLEICHSOPERATIONEN (OPCDODE #09-$0E, $i11-$15) 
DPEODE IST BEIM EINSTIEG IN REG B 


DFCODES IN DEN BEREICH VON 
301-$0& UND #09-#0E BRINGEN 
DIESEN BEREICH SD ABÄNDERN, 
DASS #009-#02, #04-%06, 
+09-$0A UND $0C-#£0E BLEIBT 
AUF #00-$07 REDUZIEREN UND 
CARRY SETZEN BZW. LÖSCHEN: 
DIES DIENT ZUR UNTERSCHEI- 
DUNG DER KOMPLEMENTÄREN 
OPERATIONEN 


FÜR DIE KOMPLEMENTÄREN 
DPERATIONEN WERDEN 

DIE BEIDEN ARGUMENTE 
AUSGETAUSCHT 


STRINGDPERATIDNEN ? 

JA 

CARRY FüR '=" UND <>" 
SETZEN UND ZWISCHENSPEICHERN 
DIE BEIDEN ZIFFERN ZUM 
TESTEN SUBTRAHIEREN 


CARRY FüR '=" UND '&£>»' 
SETZEN UND RETTEN 

2. STRINGPARAMETER VOM 
STACK HOLEN UND 
ZWISCHENSPEICHERN 

1. STRINGPARAMETER HOLEN 
LÄNGE ZWEITER STRING 
STRINGLÄNGE AUF 

NULL TESTEN 

ADRESSE UND LÄNGE TAUSCHEN 
HIGHBYTE DER LÄNGE NACH A 
WENN LÄNGE 2. STRING ©>0 
1. STRING LÄNGE 0 ? 

LÄNGE 2. STRING NACH BC 
SPRUNG: BEIDE STRINGS = © 
2. STRING IST 0 ODER 
KLEINER ALS DER 1.: 

CARRY INVERTIEREN 


3572 
3972 
3973 
3975 
3975 
3976 
3978 
35979 
3574 
337C 
Sö7E 
397F 
3580 
3381 
3982 
3383 
3985 
3585 
3986 
3587 
3388 
33988 
3989 
3398A 
So8B 
338C 
338t 
338D 
3IBE 
3991 
3992 
3393 
3396 
3997 
3978 
339B 
359C 
339c 
399C 
359C 
3o9F 
3o9A0 
SssAl 
3944 
39A9 
396 
3547 
SaAB 
3549 
35AA 
SSAB 
S3SAc 
3sAc 
SOAF 
SösAr 
3S9BO 
55Bl 
53B2 


09 
ED 


DF 


01 35 


F9 34 


01 35 


Fi 2B 


Fi 2B 


B2 2A 


-—- Wa won 


POP AF 
JR $3588B 


OR C 
JR 7,$3585 
LD A,(DE) 
SUB (HL) 

JR 0,$3585 
JR NZ,$354B 
DEC BC 

INC DE 

INC HL 

EX (SP) ,HL 
DEC HL 

IR $3564 


POP BC 
POP AF 
AND A 


PUSH AF 
RST CALRUF 
.BYT $AO 
«BYT #38 


POP AF 
PUSH AF 


CALL 6,$3501 


POP AF 
PUSH AF 


CALL NC,$34F9 


POP AF 
RRCA 


CALL NC,$3501 


RET 


CALL $2BF1 
PUSH DE 
PUSH BC 
CALL $2BFi 
POP HL 
PUSH HL 
PUSH DE 
PUSH BC 
ADD HL,BE 
LD B,H 
(Be 

RST $30 


CALL #2AB2 


POF BC 
POP HL 
LD A,B 
OR C 


oo. ae EEE TEE u TEE Ku TEE a EEE un "EEE 


u En 


-— (nn an 


“oO En a EEE NEE 


1. STRING=O0 (2. NICHT) ? 
JA 

BEIDE STRINGS >0: DIE 
NÄCHSTEN BYTES VERGLEICHEN 
BYTE VOM 1. IST KLEINER 
BYTE VOM 2. IST KLEINER 
BEIDE GLEICH, LÄNGE -1 
UND DIE ZEIGER UM 

i ERHÖHEN 

LÄNGE 2. STRING NACH 

HL UND 1 ABZIEHEN 
WEITERTVERGLEICHEN 


DER 1. STRING IST KLEINER 
ALS DER 2.: 
CARRY LÖSCHEN FÜR TEST 


ZWISCHENSPEICHERN 

FüR DIE STRINGTESTS WIRD 
EINE O0 ALS LETZTER WERT IM 
CALCULATOR GESPEICHERT 


CARRY IST GESETZT 

FüR '=" DDER '£>' 

NUR DANN ’NDOT’ AUFRUFEN 
IN ALLEN ANDEREN 

FÄLLEN WIRD 

">0° AUFGERUFEN 


FÜR '3", ”C’ UND ’=' 


WIRD NOCHEINMAL 
"NOT’ AUFGERUFEN 


SUBROUTINE ZUM ADDIEREN VON STRINGS (OPCDDE $17) 


PARAMETER DES 2. STRING 
HOLEN UND 
ZWISCHENSPEICHERN 
PARAMETER 1. STRING HOLEN 
LÄNGE 2. STRING NACH HL 


PARAMETER DES 1. 
STRING RETTEN 

BEIDE LANGEN ADDIEREN 
UND NACH BC KOFIEREN 


DAMIT DEN BENÖTIGTEN SPEI- 
PLATZ BESORGEN 

PARAMETER DES NEUEN 

STRING AUF CALC.-STACK 
PARAMETER 1. STEING 

ZUM KOPIEREN HOLEN 

TEST, DB DESSEN 

LANGE O0 IST 


201 


02 
EO 


02 
B0 


655 
FB FF 


D5 


öc 


SD 


00 


2 2A 


Sc 


2B 


SD 


01 
24 


Sc 


BE 


; 
; FUNKTION VAL’ 


; 
; FUNKTION ’CHRE$' 


JR 2,$35B7 
LDIR 

POP BC 

POP HL 

LD A,B 

OR C 

JR 2,$35BF 
LDIR 


LD HL,(STKEND) 
LD BE,$FFFB 
PUSH HL 

ADD HL,DE 

POP DE 

RET 


CALL $2DD5 
JR C,$35DE 
IR NZ,$35DC 
PUSH AF 

LD BL,1 
RST $30 
POP AF 

LD (DE),A 
CALL $2AB2 
EX DE,HL 
RET 


RST ERRAUS 
‚BYT 0A 


LD HL,(CHADD) 
PUSH HL 

LD A,B 

ADD $E3 

SBC A 

PUSH AF 

CALL $2BFi 
PUSH DE 

INC BC 

RST $30 

POP HL 

LD (CHADD) ‚DE 
PUSH DE 

LDIR 

EX DE,HL 

DEC HL 

LD (HL),$D 
RES 7,(1Y+1) 
CALL $24FB 


; 
’ 
; 
s 
; 
’ 
} 
H 


SUBRGUTINE ZUM SETZEN VON 
L AUF STKEND-5, D. H. 
WERTES IM CALEULATORSTACK 


-—— | ER an 


m u EEE a EEE u TEE a ER 


(OPCODE 


we. Eee BE u EEE En N 


; JA, NICHTS KOPIEREN 


SONST STRING UMSPEICHERN 


; PARAMETER 2. STRING 


ZUM KOPIEREN LADEN 


; WIEDER AUF 0 
; TESTEN 


JA, NICHTS ANHÄNGEN 
2. STRINS AN 1. ANFÜGEN 


DE AUF STKEND UND 
l. BYTE DES LETZTEN 


STKEND LADEN 

FÜR ADDITION -5 LADEN 
STKEND ZWSICHENSPEICHERN 
STKEND-5 BESTIMMEN 
STKEND NACH DE BRINGEN 


(OPCODE #2#) 


LETZTER WERT NACH REG A 
FEHLERMELDUNG, WENN ZAHL 
»259 ODER NEGATIV 

WERT ZKISCHENSPEICHERN 

1 SPEICHERPLATZ IM 
WORKSFACE BESORGEN 

WERT ZURUCKHOLEN UND 
ABSPEICHERN 

PARAMETER DES NEUEN 
STRING AUF CALC.-STACK 
UND DIE ZEIGER ZURÜCKHDLEN 


FEHLERMELDUNG: 
"INTEGER DUT OF RANGE’ 
#1D) UND VAL$ (#18) 

CHADD AUF DEM STACK 
ZWISCHENSPEICHERN 

OPCODE NACH A 

DIESE OPERATIONEN ERGEBEN 
*FF FÜR VAL UND O0 Für 
VAL$, DIESES FLAG RETTEN 
STRINGPARAMETER HOLEN 
ANFANGESADRESSE RETTEN 
LÄNGE +1 

SPEICHERFLATZ BESORGEN 
ANFANGSADRESSE HOLEN 
ZEIGER AUF i. NEUEN FLATZ 
NACH CHADD UND RETTEN 
STRING UMKOPIEREN 

IN DIE LETZTE POSITION 
DES NEUEN STRING EIN 
CARRIAGE RETURN SCHREIBEN 
SYNTAXPRÜFUNG SETZEN 
STRING AUF KORREKTE 


3600 
3600 
3601 
3603 
3605 
3606 
3607 
360A 
Z60A 
3600 
360F 
3612 
3616 
3619 
3619 
361A 
361D 
361F 
S61F 
3AiF 
361F 
3622 
3623 
3626 
3627 
3624 
3628 
362D 
3630 
3633 
3633 
3633 
3634 
3637 
3637 
3638 
3638 
363C 
363E 
363F 
3640 
3643 
3643 
3644 
3645 
3645 
3645 
3645 
3648 
3648 
Z64A 
364D 
3650 
3651 
3654 
3654 
3657 
3657 


00 


sc 


sc 


2A 


FE 


rn ae 


3 
} 


FUNKTION 'STR #° 


RST GETAKT 


CP $D 
JR NZ,$360C 
POP HL 


POP AF 


XOR (IY+t) 
AND $40 

IP NZ,$1CBA 
LD (CHADD) ‚HL 
SET 7,(1Y+1) 
CALL $24FB 


POF HL 
LD (CHADD) ,HL 
JR #35BF 


LD BC,1 

RST $30 

LD {KCUR) ‚HL 
PUSH HL 

LD HL, (CURCHL) 
PUSH HL 

LD A,$FF 

CALL $1601 
CALL $2DE3 


POP HL 
CALL $1515 


POP DE 
LD HL,(KCUR) 
AND A 

SBC HL,DE 
LD B,H 

LD 6, 

CALL $2AB2 


EX DE,HL 
RET 


SUBROUTINE FÜR ’"READ- 


CALL $1E94 


CP 14 

JP NC,#1E9F 
LD HL, CURCHL) 
FUSH HL 

CALL $1501 


CALL $15E5 


LD BC,O 


.. u. un u. 


-—.—-—— U u EEE u A ae A an BE an 


nn En EEE NE NE NE a 


IN’ 


SYNTAX PRÜFEN 

ZEICHEN NACH STRINS 
LADEN UND VERGLEICHEN 
KEIN 'CR’: ERROR 
STARTABDRESSE DES STRINGS 
"FLAG’ NACH A ZURÜCK 

MIT FLAGS BIT& {DURCH 
SYNTAXPRÜFUNG GESETZT) 
VERGLEICHEN 

FALLS UNGLEICH, ERROR 
STARTADRESSE NACH CHADD 
"LAUFZEIT‘ SETZEN 

STRING WIE NÄCHSTEN AUS- 
DRUCK BEHANDELN 

CHADD WIEDER 
RESTAURIEREN 


UND STKEND ETC. LADEN 


(DPCODE #2ZE)} 


i SPEICHERPLATZ IM 
WORKSPACE BESORGEN 
ADRESSE NACH KEUR 

AUF DEM STACK RETTEN 
ADRESSE DES AKTUELLEN 
KANALS RETTEN 

KANAL ’R’ FÜR DEN 
WORKSPACE ÖFFNEN 

DEN LETZTEN WERT AUS DEM 
CALC.-STACK IN DEN WORK- 
SPACE AUSGEBEN 

AKTUELLE KANALADRESSE UND 
DIE FLABS DAZU WIEDER 
HERSTELLEN 

STARTADRESSE DES STRINGS 
CURSDRADRESSE - STARTADRESSE 
ERGIBT 

DIE LÄNGE DES STRINGS 
DIESE NACH BC KOFIEREN 


DIE STRINGPARAMETER AUF 
DEM CALC,-STACK SPEICHERN 
ZEIGER KORRIGIEREN 


(OPCODE #1A) 


NUMERISCHEN PARAMETER 
NACH RES A HOLEN 

DIESER MUSS KLEINER 1& 
SEIN, SONST ERROR 
AKTUELLE KANALADRESSE 
AUF BEM STACK RETTEN 

DEN SPEZIFIZIERTEN KANAL 
öFFNEN 

ZEICHEN HOLEN (WIE NORMA- 
LERWEISE EINE TASTE) 
DEFAULTLÄNGE = 6 
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365A 30 03 JR NC,#365F ; SPRUNG: KEIN ZEICHEN 

365C 0C ING C ; LÄNGE #1 

365D F7 RST +30 ; 1 SPEICHERFLATZ BESORGEN 
3öSE 12 LD (DE),A ; ZEICHEN DORT SPEICHERN 
365F CD B2 2A CALL $#2AB2 ; STRINGPARAMETER AUF 

3662 ; STACK SPEICHERN 

3662 EI POP HL ; AKTUELLE KANALADRESSE UND 
36653 CD iS 16 CALL $15815 ; DIE PARAMETER ZURÜCKHOLEN 
3666 LC3 BF 35 JP $35BF ; ZEIGER HL UND DE SETZEN 
3669 

3669 FUNKTION 'CODE’ (DPEODE $iC) 


..-: ji ae 


3669 AUSGABE DES ASCIIWERTES EINES ZEICHENS 

3659 

3669 CD Fi 2B CALL $2BFi ı STRINGPARAMETER HOLEN 

SöbCt 78 LD A,B ; STRINGLÄNGE AUF 

356D Bi OR c ; NULL FRÜFEN 

SbsE 28 Öl JR 2,33671 ; SPRUNG, WENN NULL 

3670 1A LD A, (DE) ; ZEICHEN LADEN 

3671 C3 28 2D JF #2D28 ;s A ALS LETZTEN WERT 

3574 ı IM STACK SPEICHERN 

3674 - 

3674 ; FUNKTION 'LEN’ (OPCODE $1E) 

3674 - 

3674 CD Fi 2B CALL $2BFi ; STRINGPARAMETER HOLEN 

s6/t 63 ZB 22 JP #2D2B ; BC AUF DEM CALC,- 

367A ı STACK SPEICHERN 

3&7A ; 

367A ; SUBRQOUTINE ZUM VERMINDERN VON "BREG’ UM 1, 

367 ; WELCHES ALS SCHLEIFENZÄHLER DIENT (NACH- 

367A ı BILDUNG DES PROZESSORBEFEHLS DJNZ, HIER 

3674 ; DER DPEDDE #35) 

367A H 

367A D9 EXX ; 2. REGISTERSATZ EINSCHALTEN 
367B ES PUSH HL ; ZEIGER AUF NÄCHSTEN OFEODE 
367C ; ZWISCHENSPEICHERN 

36/6 21 67 5C LD HL,BRES ; ADRESSE VON BREG LADEN 
367F 35 DEC (HL) ; 1 SUBTRAHIEREN 

3660 EI FOP HL ; ZEIGER RESTAURIEREN 

36Bi 20 04 JR NZ,$3687 ; NOCH NICHT FERTIS 

3683 23 ING HL ; NÄCHSTEN OPCODE üBER- 

3664 D9 EXX ; SPRINGEN, NORMALE REEISTER 
3685 [9 RET ; WIEDER EINSCHALTEN 

3685 s 

36865 s SUBROUTINE 'JUMP' (OPCODE #33) ZUM üBER- 

3684 ; SPRINGEN VON CALCULATOROPCODES 

3686 A 

3685 D? EXX ; 2. REGISTERSATZ EINSCHALTEN 
3687 SE LD E,(HL) ; SPRUNGOFFSET LADEN 

S668 7B LD A,E ;s FüR POSITIVEN OFFSET © 
687 17 RLA ; UND FüR NEGATIVEN FF IN 
JaßA 9F SBC A A BILDEN UND NACH 

S68B 57 LD D,A ; D KOPIEREN, ADDITION ZU 
S68C 19 ADD HL,DE ; HL’ ERGIBT DIE ADRESSE 
368D D? EXX ; NORMALE RESISTER EINSCHALTEN 
368E 69 RET 

368F ; 

368F ; SUBRDUTINE ZUM ÜBERSPRINGEN VON CALCULATOR- 

S6BF ; BEFEHLEN, WENN DER LETZTE WERT <>0 IST 
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EF 


(DOFEODE $00) 


INC DE 

INC DE 

LD A,(DE) 
DEC DE 

DEC DE 

AND A 

JR NZ,$368& 
EXX 


DAS DRITTE BYTE 
ADRESSIEREN UND 


; NACH A LADEN 


ZEIGER AUF ERSTES BYTE 
ZURÜCKSETZEN 


;ı WERT = 0 ? 
; NEIN: ÜBERSPRINGEN 
; SONST NUR DEN OFFSET 


. 
’ 
. 
’ 
’ 
’ 
“ 
3 
’ 
’ 
’ 
’ 
’ 


INC HL ; DURCH INKREMENTIEREN 
EXX VON HL’ üBERGEHEN 
RET - 


SUBROUTINE ZUM BEENDEN DER CALCULATOR- 
DPERATIDONEN (DPCODE #738) 


.. u. m. “as 


POP AF RETURNADRESSE #3265 


’ 

; WESWERFEN 
EXX ; HL’ (NORMAL NÄCHSTER 
EX (SP) ,HL « CALC.-OPCODE) FÜR 
EXX ; RETURN AUF DEM STACK 
RET ; SPEICHERN 


SUBROUTINE ZUM BERECHNEN VON N MOD M 
{DPEODE #32). DER GANZZAHLIGE ANTEIL 
INT {N/M) ERGIBT DEN LETZTEN WERT, DER 
REST DER DIVISION DEN VORLETZTEN WERT 
IM CALCULATORSTACK 


0 ME HE EEE ae 


RST CALRUF : N,M, AUFRUF CALCULATOR 
„BYT $C0 ; N,M, M IN MEMO SPEICHERN 

„EYT $02 ; N, M LÖSCHEN 

„BYT $31 ; N,N, VERDOPPELN 

„BYT $EDO ; N,N,M, MEMO LADEN 

„BYT $05 ; N,N/M, DIVIDIEREN 

„BYT $27 : N,INTN/M), INTEGER BILDEN 
„BYT $EO ; N,INT(N/M),M MEMO LADEN 

„BYT $01 > N,M,INT(N/M), VERTAUSCHEN 
„BYT $C0 > N,M,INTEN/M) INT(N/M) IN MEMO 
‚BYT $04 : N,M#INT{N/M), MULTIPLIZIEREN 
„BYT $03 ; N-M#INTIN/M), = REST 

„EYT $EO ; REST,INT{N/M), MEMO LADEN 
.BYT $38 ; ENDE 

RET 


} 
; FUNKTION "INTEGER’ (DPCEODE #27) 


RST CALRUF ; X, CALEULATORAUFRUF 
„BYT $31 ; X,%, VERDOPPELN 
„BYT $36 ; X,(1 DD. 0), <0? 
‚EYT $00 ; SPRUNG, WENN 
.BYT $04 ; <NULL NACH INTINY 
„BYT $34A ; INT(X), REST ABSCHNEIDEN 
„BYT $38 ; ENDE 
RET 

INTINV „BYT $31 ; X,X, VERDOPPELN 
„BYT $3A ; X,INT(X), REST ABSCHNEIDEN 
„BYT $C0 ; X,INT(X), IN MEMO SPEICHERN 
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.BYT 
„BYT 
‚BYT 
‚BYT 
‚.BYT 
«BYT 
«BYT 
‚BYT 
NEGINT „BYT 
RET 


03 
$EO 
E01 
$30 
£00 
$05 
&Al 
+07 
+38 


—.— | HE u 


TEE En 


X-INT(X), SUBTRAHIEREN 
X-INTEXD ,INT(X), MEMO LADEN 
INT(X) ,X-INT(X) , TAUSCHEN 
INTCX),(1 00.0), NOT 
SPRUNG, WENN REST 

NULL IST: NEGINT 

INT(X},1, 1 SPEICHERN 
INTOO-1 

ENDE 


; DIE FUNKTION E*X {0PCDDE $25, EXP) 


. 
5 


RST CALRUF 


‚BYT 
‚BYT 


+3D 
34 


5 
; 
; 


X, CALCULATDRAUFRUF 
X, IMMER IN FLOATINGP. 
X,t/LN2, KONSTANTE 1/LN? 


.BYT $F1,$3B,$AA,$3B,829 ; SPEICHERN 


„BYT 
.BYT 
„BYT 
„BYT 
«BYT 
‚BYT 
‚BYT 
„BYT 
‚BYT 
«BYT 
„BYT 


‚BYT 


.BYT 


„BYT 


.BYT 


‚BYT 


‚BYT 


$04 » X/LN2=Z, DIVIDIEREN 

$31 ; 2,2, VERDOPPELN 

$27 ; 2,INT(Z)=N, INTEGER BILDEN 
$C03 ; 2,N, IN MEM3 SPEICHERN 

$03 ; Z-N=Y, SUBTRAHIEREN 

$31 ; Y,Y, VERDOPPELN 

goF ‚ 2*Y, ADDIEREN 

Al ; 2#Y,1, 1 SPEICHERN 

£03  28Y-1 

88 ; POLYNOMENTWICKLUNG AUFRUFEN 
$13,$36 ı ES FOLGEN DIE 

$58,$65,$6& ; DIE 8 NOTWENDIGEN 
$9D,$78,$65,$40 ; KONSTANTEN 
$A2,$60,$32,$09 


$E7,$21,$F7,$AF,$24 


$EB,$2F,$BO,$BO,$14 


$EE,$7E,$BB,$94,$58 


Sörl 
Sör2 
SbFs 
36F4 
SAFS 
S6F& 
Ss6F7 
S6Fß 
3aF9 
SöFtc 
S6FE 
3700 
3701 
3703 
3703 
3704 
3705 
3705 
3707 
3707 
3708 
370A 
370A 
S370A 
>70C 
370D 
>70E 
>70E 
S70F 
3710 
3711 
3712 
3713 
3713 
>713 
3713 
3713 
3713 
3713 
3713 
5714 
3715 
>71& 
3717 
53718 
>719 
>71A 
371A 
>71B 
371C 
S>71C 
>71D 
S71E 
S7irF 
3720 
3722 
3725 
3726 


EF 
>D 
31 
37 
00 
04 
38 


CF 
09 


AO 
02 


4 
Br 


TE 
36 
CD 
EF 
34 


44 


80 
28 2D 


u 


VON 


-—.— ME u TEE u AR un 


} 
LNPDS 


„BYT $F1,$3A,$7E,$FB,$CF 


«BYT $ES5 
.BYT $38 
CALL $2DD5 
JR NZ,*3705 
JR C,$3703 
ADD (HL) 

JR NC,#570C 


RST ERRAUS 
.BYT $05 


JR C,$570E 


SUB {HL) 
JR NC,#370E 


NEG 
LD (HL),A 
RET 


RST CALRUF 
.BYT #02 
«BYT $AO 
«BYT $58 
RET 


DIE FUNKTION 'LN(XI' 
X WIRD BEI LN{X) 
UNTERSCHEIDUNG WIRD DARAN GETROFFEN, OB 

*%.8 ODER >.8 IST, NACHDEM X IN DEN BEREICH 
.t=X{1l GEBRACHT 


RST CALRUF 
.BYT $3D 
.BYT $51 
‚BYT $37 
.BYT $00 
„BYT $04 
‚.BYT $38 


RST ERRAUS 
.BYT #09 


„BYT $A0 
‚EYT $02 
‚BYT $38 
LD A,(HL) 
LD (HL) ,$80 
CALL +2D28 
RST CALRUF 
.BYT $34 


a. a En 


-—-— an WE 1m u EEE a 


2”W,N, MEMS3 LADEN 

ENDE 

N IN REG A LADEN 

WENN N NEGATIV, SPRUNG 
ERROR, WENN N>255 
EXPONENT ADDIEREN 

KEIN üBERLAUF 


FEHLERMELDUNG: 
"NUMBER TOO BIG' 


WENN N{-255, DANN DAS 
ERGEBNIS ZU NULL SETZEN 
EXPONENT SUBTRAHIEREN 
HIER EXPONENT >0 BEDEU- 
TET, DASS ZAHL NULL ZU 
SETZEN IST (UNTERLAUF) 
EXPONENT KORRIGIEREN 
DEN RICHTIGEN EXPDNENT 
EINSCHREIBEN 


BEI "UNTERLAUF', DAS 
ERGEBNIS ZU 
NULL SETZEN = 
WERT 


LETZTER 


(DPCODE #25) 


AUF 2 ARTEN BERECHNET. DIE 


—— ME u TEE u NE ae 


WURDE 


X, CALCULATORAUFRUF 

X, X IN FLOATINP.-FORM 
X,X, VERDOPPELN 

X,tt 0D.0), X NEGATIV? 
SPRUNG, WENN X 
POSITIV: LNPOS 

SONST ENDE UND: 


FEHLERMELDUNG: 
"INVALID ARGUMENT’ 


X,0, 0 SPEICHERN 

X, 0 WIEDER LöSCHEN 

ENDE 

EXPONENT LADEN 

X ZU X’ MACHEN 

X',E, EXPONENT SPEICHERN 
X',E 

KONSTANTE 128 SPEICHERN: 
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3727 
3728 
3729 
>72A 
372B 
3720 
372D 
S72E 
372F 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
>737 
53738 
3739 
373A 
>73B 
5373C 
>73D 
5>73E 
373E 
5>73E 
373E 
573E 
373E 
373F 
3740 
3741 
3742 
3743 
>744 
3745 
3746 
>747 
3748 
3749 
374 
>74B 
5>74aC 
374D 
S374E 
>74F 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
375A 
375B 
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GROSSB 


„BYT 


«BYT 
.BYT 
.BYT 
«BYT 
.BYT 


.BYT 
„BYT 
«BYT 
«BYT 
„BYT 
. BYT 
«BYT 
„BYT 
„BYT 
INC 


$38,$00 


£05 
01 
$31 
+34 


5 
; 
} 
5 


Be 
E’,X’,X",.B, KONSTANTE „8 


$FO,$4C,$CC,$CC,$CD ; SPEICHERN 


$05 
#37 
00 
£08 
+01 
Al 
$05 
01 
+38 


(HL) 


RST CALRUF 


‚BYT 


‚BYT 
.BYT 


.BYT 
„BYT 
‚.BYT 
‚„EYT 
‚BYT 
‚BYT 
„BYT 
‚BYT 
.BYT 


‚BYT 
.BYT 
.BYT 
‚BYT 
‚BYT 
‚BYT 


„BYT 


.BYT 


Ol 


$34 


a 
; 
3 
; 
5 
; 
L} 
3 
; 
s 
. 
; 
‚ 
} 
. 
3 
; 
3 
; 
; 
; 


Apr Se Se: 


TEST, DE GRÖSSER 0 
E',X’, SPRUNG, WENN X’ 


; EROSSER „B IST: GROSSB 


X',E', AUSTAUSCHEN 
X’,E’,1, 1 SPEICHERN 


IM FOLGENDEN BEDEUTET X' 
2#X', WENN X 2,8 WAR, SONST 
IMMER X’ UND , 


; E’-1, WENN x .8 WAR ODER 


E', WENN X’ >48 WAR 
Yr .E” LN2, KONSTANTE 


$F0,$31,$72,$17,$F8 ; LN2 SPEICHERN 


$eC 
$11,$AC 


$14,$09 


$56,$DA,$A5 


$59,$30,$C05 


X'',E''*LN2 
E’'&LN2=Y,X°' 
Y.X’’,.5, .5 SPEICHERN 
YX'’-,5 

YıX''-,5,.5 

YO 

Ne ee SE 
Y.X''-1,X°'-1,2.5, KONSTANTE 
2.5 SPEICHERN 
Y.X'-1,2.5X7° '-2.5 
YyK''-1,2.5%°'-2.5,.3 
DE a 0) er 
POLYNOMENTWICKLUNG MIT 


INSGESAMT 12 KONSTANTEN 


375C 
375D 
375E 
375F 
3760 
53761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
S76A 
376B 
376C 
376D 
376E 
376F 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
377A 
377B 
377C 
377D 
S77E 
S377F 
3780 
3781 
3782 
3783 
3783 
3783 
3783 
3783 
3783 
>784 
3785 
3786 
3787 
3788 
3789 
5>78A 
378B 
>78C 
378D 
37BE 
378F 
3790 


.BYT 


„BYT 


.BYT 


„BYT 


„BYT 


.BYT 


.BYT 


” BYT 


.BYT 
.BYT 
.BYT 
RET 


$56C,390,$AA 


$9E,$70,$6F,$61 


$A1,$CB,$DA,$96 


$A4,$31,$9F,$B4 


$E7,$AO,$FE,$SC,$FC 


$EA,$1B,$43,$CA,$36 


$ED,$A7,$90,$7E,$5E 


$F0,$6E,$23,$80,$93 


$04 
OF 
$38 


Y=LN{2*E’’,LNX'' 
LN((2rE" IX") = LNX 
ENDE 


SUBROUTINE ZUM REDUZIEREN DES ARGUMENTS 
BEI SINUS UND COSINUS IN DEN BEREICH 
VON -.5£=V£,5 


RST CALRUF 


.BYT 
.BYT 


$3D 
$34 


“ 
’ 
* 
’ 
’ 


X 
X, X IN FLOATINGP.-FORM 
X,1/(2*PI), KONSTANTE 


‚BYT $EE,$22,$F9,$83,$6E ; SPEICHERN 


.BYT 
«BYT 
«BYT 
.BYT 
„BYT 
.BYT 


$04 
$51 
$A2 
OF 
$27 
$03 


.—— WE a TEE a 


X/(2*PI) 

X/(2*PI),X/(2*PI) 
X/(2%PI),X/(2*P]I),.S 
X/12*PI),X/(2*PI)+.5 
X/(2*PI),INT(X/(2*PI)+.5) 
Y=X/(2#PI)-INT(X/(2#PI)+.5) 
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3 
ZPOSI 


YNEGAT 


EEE en 


we TE 


SINCOS 


„BYT 
„BYT 
„BYT 
„BYT 
«BYT 
«BYT 
.BYT 
‚BYT 
.BYT 
„BYT 
„BYT 
«BYT 
.BYT 
«BYT 
„BYT 
RET 


.BYT 
„BYT 
.BYT 
.BYT 
.BYT 
‚BYT 
«BYT 
„BYT 
RET 


RST CALRUF 


‚BYT 
«BYT 
.BYT 
‚BYT 
‚.BYT 
«BYT 
«BYT 
‚BYT 
„BYT 
.BYT 


+39 
$2A 
$Al 
$05 
$EO 
00 
06 
$1B 
$33 
05 


RST CALRUF 


.BYT 
„BYT 
«BYT 
‚BYT 
«BYT 
„BYT 
‚BYT 
.BYT 


.BYT 
«BYT 


.BYT 


+39 
#31 
+31 
£04 
#51 
£OF 
$Al 
#03 


$86 
$14,$E6 


$5C,$1F,$0B 


—_ an WM ——.- a. TEE a —: WE ar TEE u 


-—.—_ ME u TEE a BE a 


s 
; 
} 
[ 
} 
; 
“ 
; 
[3 
; 
[3 
} 
[} 
} 
* 
; 
“ 
} 


0 _ ME a A un TE u a 


Y,Y 

2x*Y 

2#Y ,2*Y 

4*Y 

4xY,4xY 

AxY,ABS{4xY) 
4xY,ABS{4xY) ‚1 
4*Y,ABS(4#Y)-1=27 
4%Y,1,7 

4*xY,2,(1 00.0) >0? 
ERGEBNIS DAVON NACH MEMO 
SPRUNG, WENN >0 NACH 
POS] 

4#Y 

ENDE 


4#Y,27,1 

4*Y,2-1 

2-1,4%*Y 

2-1,(1 0D.0) <0? 
SPRUNG, WENN <0 NACH 
YNESAT 

{-Z, INVERTIEREN 
ENDE 


FUNKTION COSINUS (DOPCEODE $20) 


X 

V, ARGUMENT HOLEN 

ABS (V) 

ABS(V),i 

ABS (V)-1 

MEMD HOLEN 

SPRUNG, WENN MEMO 

{ IST: SINCOS 
{-ABS{V), INVERTIEREN 
{-ABS{V}=W, SPRUNG NACH 
SINCOS 


SUBROUTINE ZUM BERECHNEN DES SINUS 
(DPCEODE $1F) 


W248, 1 
W,2*W&*W-1=7 


POLYNDMENTWICKLUNG MIT 


s 
; & KONSTANTEN 


>7C2 
37C3 
37C4 
3765 
37C6 
37C7 
37C8 
37C9 
37CA 
37CB 
37CC 
57CD 
37CE 
37CF 
>7D0O 
37D1 
37D2 
37D3 
37D4 
37D5 
37D& 
37D7 
37D7 
37D8 
37D? 
37DA 
37DA 
37DA 
37DA 
37DA 
>7DB 
37DC 
37DD 
>7DE 
37DF 
>37E0 
S7El 
537E2 
37E2 
37E2 
S7E2 
37E2 
37E2 
S7E2 
37E2 
S7E2 
37E2 
37ES 
37E6 
37E8B 
37EA 
S7EB 
S7EC 
>7ED 
S7EE 
37EF 
37FO 
S7Fl 


97 32 


81 
DE 


u ae ar 


——_ on EEE a TEE NEE ae TEE Sn 


„BYT $A3,$BF,$38,$EE 


„BYT $E9,$15,$63,$BB,$23 


„BYT $EE,$92,$0D,$CD,$ED 


„BYT $F1,$23,$5D,$1B,$EA 


; W,{SIN(PI*W/2))/K 


«BYT $04 ; SIN{FI*W/Z}= SIN(X) ODER 
.BYT $38 ; LOS(Y) 
RET 


SUBROUTINE ZUM BERECHNEN DES TANGENS 
(DPCODE #21) 


RST CALRUF X 

„BYT $31 KK 

„BYT $1F > X,SINiO 

„BYT $01 > SINCY,X 

„BYT $20 ; SIN(X),COSEH) 

„BYT $05 ; TAN(XI=SIN(K)/EOSCH 
„BYT $38 ; ENDE 

RET 


SUBROUTINE ZUM BERECHNEN VON ARCUSTANGENS 
(DPECDDE #24) 


ES ERFOLGT EINE UNTERTEILUNG IN DREI FÄLLE: 
FÜR -1{X£l: W=0, Y=X 

FÜR 1£=X: W=PI/2, Y=-1/X 

FÜR X%X=-1: W=-PI/2, Y=-1/X 


CALL $3297 ; X IN FLOATINGP.-FORM 
LD A, (HL) ; EXPONENT LADEN 

CP $Bi I < ABS(X) ? 

JR C,TANGEI ; JA 

RST CALRUF ; X, CALCULATORAUFRUF 
„BYT $Al ; X,1, 1 SPEICHERN 
„BYT $1B ; X,-1, INVERTIEREN 
„BYT $01 ; -1,X, TAUSCHEN 

„BYT $05 ; -1/X, DIVIDIEREN 
„BYT $31 5 -1/X,-1XX 

‚BYT $36 ; -1/X,(1:-00.0), £0? 
„BYT $A3 ; -1/X, (1 08.0) ,P1/2 
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37F2 01 .BYT $01 -1/X,P1/2,(1 0D.0) 


’ 
37F3 00 ‚„BYT £00 ; SPRUNB FÜR 1<=X NACH 
37F4 06 „BYT $06 ; TANGE2 
37F5 1B „BYT $1B ; -1/X,-PI/2, NEGIEREN 
37F6 33 „BYT $33 ; SPRUNG NACH 
37F7 03 „BYT $03 ; TANGE2 
37F8 EF TANGEI RST CALRUF sy 
37F9 AO ‚„BYT $AO v0 
37FA 01 TANGE2 .BYT $01 ; W,Y, TAUSCHEN 
37FB 31 „BYT $31 > M,Y,Y 
37FC 31 „BYT $31 > W,Y,Y,Y 
37FD 04 ‚BYT $04 > W,Y,Ya#Y 
37FE 31 „BYT $31 : WY,Y&Y,Y&Y 
37FF OF „BYT $OF ; W,Y,2#Y&#Y 
3800 Ai „BYT $Al > W,Y,28Y&Y,1 
3801 03. „BYT $03 ; W,Y,2#Y&Y-1=7 
3802 8C „BYT $8C ; POLYNDMENTWICKLUNG MIT 
3803 10 „BYT $10,$B2  ; 12 KONSTANTEN 
3804 B2 
3805 13 „BYT $13,$0E 
3806 OE 
3807 55 ‚BYT $55,$E4,$8D 
3808 E4 
3909 BD 
3804 58 „BYT $58,$39,$BC 
380B 39 
3806 BC 
380D 58 „BYT $5B,$98,$FD 
380E 98 
380F FD 
3810 9E „BYT $9E,$00,$36,$75 
3811 00 
3812 36 
3813 75 
3814 AO ‚BYT $A0,$DR,$EB,$B4 
3815 DB 
3816 E8 
3817 B4 
3818 63 „BYT $63,$42,$04 
3819 42 
3sBiA C4 
381B Es .BYT $E6,$B5,$09,$35,$BE 
3810 BS 
381D 09 
3BiE 36 
381F BE 
3820 E9 .BYT $E9,$36,$73,$1B,$5D 
3821 36 
3822 73 
3823 1B 
3824 5D 
3825 EC ‚BYT $EC,$DB,$DE,$63,$BE 
3826 DB 
3827 DE 
3828 63 
3829 BE 
382A FO „BYT $FO,$61,$A1,$B3,$0C 
382B bi 
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>82C 
382D 
SB2E 
S382F 
3830 
831 
38532 
3853 
3835 
3833 
3833 
38534 
3855 
3856 
38537 
3858 
3839 
>B3A 
>85B 
S383C 
383D 
S3B3E 
S385F 
>840 
3841 
>842 
3845 
3843 
3843 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
>BAan 
J84n 
S3B4A 
S84A 
394 
384B 
3B4c 
384D 
384E 
3B4F 
3850 
S851 
3851 
3851 
3851 
3851 
3852 
3853 
3854 
3855 
3856 
3857 


.BYT 
‚BYT 
.BYT 
RET 


$04 
OF 
+38 


W,ATNKX 
ATN X 
ENDE 


} 
; FUNKTION ARCUSSINUS (OPCODE #22) 


RST CALRUF 


.BYT 
„BYT 
.BYT 
„BYT 
.BYT 
.BYT 
«BYT 
„BYT 
‚BYT 
‚BYT 
„BYT 
«BYT 
«BYT 
‚BYT 
RET 


$31 
$31 
+04 
$Al 
03 
$1B 
$28 
Al 
OF 
05 
+24 
$31 
OF 
+38 


X, CALCULATORAUFRUF 


X,SORLL-X#X) 


X,SORtI-XRN) „il 
X,1+SRR1-X#X) 
X/1+SQR (1-X*X)=TAN(Y/2) 


Y/2, ARCUSTANGENS 


Y/2,Y/2 


Y = ARCUSSINUS X 


ENDE 


5 
; FUNKTION ARCUSCOSINUS (DPCODE #23) 


RST CALRUF 


.BYT 
.BYT 
.BYT 
.BYT 
„BYT 
RET 


En 


RST CALRUF 


.BYT 
.BYT 
«BYT 
«BYT 
„BYT 
.BYT 


ee a an 


RST CALRUF 


.BYT 


$22 
$A3 
03 
$1B 
+38 


$31 
30 
$00 
$1E 
$A2 
+38 


$01 
#31 
30 
$00 
07 
$25 


——— a u NEE a 


. 
3 
. 
; 
[3 
} 
a 
3 
. 
; 
5 
} 


—— (Eu NEE ae TEE a 


X 
ARCSIN X 


ARCSIN X,P1/2 
ARCSIN X -PI/2 
PI/2 - ARCSIN X = ARCCOS X 


ENDE 


X 
XuX 


X,11 0D.0),X=0? 
SPRUNG, WENN X 


NACH LETZWE 


X,.5, „5 AUF DEN STACK, 
UM X*.5 ZU BERECHNEN 


SUBROUTINE ZUR BERECHNUNG VON X*Y 
(OPCODE #046) 


Y 
X 
XyX 
X 


X 
Y 
Y 
Y 
5 
NACH XNULL 
Y‚LN(X) 


L) 

L) 

L) 

‚X,(1 00.0), 
PRUNG, WENN X=0 


SUBROUTINE ZUR BERECHNUNG DER QUADRATWURZEL 
(DPCODE #28) 


=o0 


{=0 ? 
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3858 04 ‚.BYT #04 Y*LN(X) 


’ 
3859 38 .BYT #38 ; ENDE UND SPRUNG, UM 
3s85A C3 C4 36 JP $35C4 ı EXP{Y&LN(X)) ZU BILDEN 
385D ; 
385D 02 XNULL .BYT $02 ! 
385E 31 ‚.BYT $31 : VY 
385F 30 .BYT $3 ; Y,(1 908.0, Y=07? 
3860 00 «.BYT #00 ; SPRUNG NACH EINSSP, 
3861 09 .BYT #09 ; WENN Y=0 
3842 AO ‚BYT AO ; Y,0 
3863 61 .BYT 01 ER 
3864 3 ‚BYT $37 s 0,11 0D.0), Y>O ? 
3845 00 .BYT $00 ; SPRUNG NACH LETZWE, 
3866 0& .BYT #05 ; WENN Y > 0 
3867 Ai .BYT $Al ; SONST DURCH DIE DIVISION 
3868 Öl „BYT $0i ; 1/0 FEHLER ERZEUGEN: 
3869 05 .BYT $05 ; "ARITHMETIC DVERFLOKR' 
S86A 02 EINSSP .BYT $02 ; =, LöSCHEN 
385B Al „BYT $Al 4 
3846 38 LETZWE „BYT $38 
386D C9 RET 
386E ; 
S386E ; BIS ZUM ZEICHENSATZ ENTHÄLT DAS ROM NUR NOCH $FF 
S86E ) 
386E .END 
S>BöE *=£3D00 
3D00 CHARRO 
3D00 „END 


ERRORS = 0000 


ENDE DES ASSEMBLERS 
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Hueber Software 





Dieses Buch wird Ihnen zeigen, 
daß das Spektrum des ZX SPEC- 
TRUM Ihnen die Horizonte unend- 
licher Abenteuer erschließt. 

6 Spiele und izle Spektrum heißt Reichweite, und 
as 2 der ZX SPECTRUM ist trotz seiner 
| | bescheidenen Größe ein 
Computer von schier grenzenloser 
Reichweite. Die Spiele dieses 
Buches werden Ihnen die Lust 
bereiten, diese Reichweite aus- 
ISBN 3-19-008201-4  Zumessen und auszukosten. 

Aber dieses Buch ist nicht nur 
zum Spielen da, weil wir glauben, daß man nicht sein 
ganzes Leben mit Spielen vergeuden soll. Um Ihnen die 
Vielseitigkeit Ihres neuen Computers zu erschließen, 
haben wir einige Programme eingebaut, die Ihnen das 
tägliche Leben erleichtern werden; vieles, was bisher 
mühsame Plagerei war, wird durch den Computer zum 
Spiel. Schon die Gebrauchsprogramme werden Ihnen 
zeigen, daß sich die Anschaffung des ZX SPECTRUM 
gelohnt hat. Sie müssen Graphiken plotten oder Glei- 
chungen lösen? Unsere Programme zeigen Ihnen, wie's 
gemacht wird. Metrische Umwandlung, alphabetisches 
und mathematisches Sortieren, Morse-Training und 
BASIC-Umnumerierung: Unsere Programme sind zum 
Einspeichern bereit. Und auch, wenn Sie Ihre Scheckaus- 
gaben kontrollieren wollen, haben wir eine Lösung parat. 





Max Hueber Verlag 


Max-Hueber-Str. 4 - 8045 Ismaning 








Hueber Software 





Ob Sie nun als Neuling oder 
schon als versierter Programmie- 
rer an den ZX SPECTRUM 
herangehen, fasziniert von den 
fantastischen Grafik-, Farb- und 
Speichermöglichkeiten des 
SPECTRUMSs können Sie nun end- 
lich mit diesem Buch sofort in die 
Feinheiten einsteigen. 
Viele Programme und eine Reihe 
von Routinen, die Ihnen sehr nütz- 
ISBN 3-19-008200-6 lich sein werden, enthält der vor- 
liegende Band. Hier ein kleiner 
Ausschnitt aus dem Inhalt: Computerspiele mit bewegli- 
cher Grafik, ernsthafte Anwendungen und Geschäftspro- 
gramme, eine Auswahl von Maschinenprogrammen in 
mnemonischen und Dezimalcode, eine Aufstellung von 
Unterprogrammen, die Sie eigenen Programmen anfügen 
können und Weltraumspiele und, und... 
Wenn Sie alle Qualitäten Ihres Computers voll ausschöp- 
fen wollen — brauchen Sie dieses Buch. 





Max Hueber Verlag 


Max-Hueber-Str. 4 8045 Ismaning 











ZX-SPECTRUM-POWER 





DAS SPECTRUM ROM befriedigt jegliche Neu- 
gier und Spielgier von ZX-SPECTRUM-Freunden, 
die es ganz genau wissen wollen und auf eine 
totale Mobilisierung aller Möglichkeiten ihres 
Gerätes aus sind. 


Das Kernstück des Werkes ist ein ausführlich 
kommentiertes Listing des SPECTRUM-Betriebs- 
systems. Sämtliche Bestandteile des ROM sind 
hier in möglichst verständlicher Weise erläutert. 
Es handelt sich dabei nicht um einen reinen 
Katalog mit Kommentaren; das Buch entstand 
vielmehr als Assembler-Programm, dessen 

158 ed ai bel EI FA0 Te IC TehTe Me ht eo): PALT- 
Übereinstimmung mit dem SPECTRUM ROM 
bewies. Wer sich mit Maschinensprache im 
SPECTRUM befassen will, muß dieses Buch als 
Nachschlagewerk besitzen. 


Eine umfangreiche Einführung gibt dem Leser 
einen Überblick der Funktionen des 

2X SPECTRUM, seiner Systemeinheiten und 
Nutzungsmöglichkeiten. Der SPECTRUM wird 
dabei besonders mit ähnlichen Geräten 
verglichen, um auch dem Leser, der keine 
Marktübersicht besitzt, eine Wertung der Vor- 
und Nachteile dieses Computers zu ermöglichen. 


Die Autoren R. Arenz und M. Görlitz haben an 
der Technischen Hochschule Darmstadt 
Regelungstechnik und Datentechnik studiert 
und arbeiten im Bereich Systementwurf mit 
Mikroprozessoren. Aus langjähriger Arbeit sind 
ihnen sowohl gängige Computersysteme wie 
auch die Befehlsstrukturen vieler Mikro- 


prozessoren geläufig. 


ISBN 3-19-008209-X Hueber Software 








